Metrics for Distance on a great circle

start0.0ms (0.0%)

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

analyze983.0ms (2.6%)

Memory

47.3MiB live, 1 553.1MiB allocated; 226ms collecting garbage

Algorithm

1×

Search

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

Compiler

Compiled 67 to 28 computations (58.2% saved)

sample9.7s (25.7%)

Memory

265.5MiB live, 14 193.6MiB allocated; 4.6s collecting garbage

Samples

8.8s	7 584×	1	valid
150.0ms	672×	0	valid

Precisions

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

ival-cos: 3.1s (36.3% of total)

ival-sin: 2.5s (29.9% of total)

ival-div!: 630.0ms (7.5% of total)

ival-mult!: 630.0ms (7.5% of total)

adjust: 530.0ms (6.3% of total)

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

ival-sqrt: 259.0ms (3.1% of total)

ival-pow2: 230.0ms (2.7% of total)

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

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

Bogosity

preprocess55.0ms (0.1%)

Memory

-21.1MiB live, 72.1MiB allocated; 6ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	234	1364
1	887	1170

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

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

Status

Accuracy

Program

▶

65.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))))))))))

Compiler

Compiled 130 to 52 computations (60.0% saved)

sample0.0ms (0.0%)

Memory

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

Calls

Call 1

Inputs
2
1

Outputs
#s(literal 2 binary64)
#s(literal 1 binary64)

Samples

0.0ms

1×

valid

Compiler

Compiled 4 to 4 computations (0.0% saved)

Precisions

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

adjust: 0.0ms (0.0% of total)

series236.0ms (0.6%)

Memory

-1.7MiB live, 666.9MiB allocated; 41ms 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
23.0ms	phi1	-inf
19.0ms	lambda2	-inf
15.0ms	lambda1	0
12.0ms	phi1	inf
11.0ms	lambda2	0

rewrite202.0ms (0.5%)

Memory

19.6MiB live, 492.2MiB allocated; 33ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	26	390
0	45	390
1	191	335
2	950	325
0	4198	320

Stop Event

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

Counts

26 → 528

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

eval237.0ms (0.6%)

Memory: 11.7MiB live, 619.4MiB allocated; 82ms collecting garbage
Compiler: Compiled 75 852 to 7 848 computations (89.7% saved)

prune347.0ms (0.9%)

Memory

1.3MiB live, 617.7MiB allocated; 159ms collecting garbage

Pruning

69 alts after pruning (69 fresh and 0 done)

	Pruned	Kept	Total
New	664	69	733
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	665	69	734

Accuracy

94.2%

Counts

734 → 69

Alt Table

Click to see full alt table

Status	Accuracy	Program
	60.3%	(.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.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 phi1 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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R))
	60.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))) (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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 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) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	60.2%	(.f64 R (.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))))))
	60.3%	(.f64 R (.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 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) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	62.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
	65.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (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 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (sqrt.f64 (-.f64 #s(literal 1 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 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))))))
	60.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))))))))
▶	60.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64)))))))
	60.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (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) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 (cos.f64 (/.f64 (-.f64 (-.f64 phi2 phi1) (-.f64 phi2 phi1)) #s(literal -2 binary64))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (/.f64 (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) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 (cos.f64 (/.f64 (-.f64 (-.f64 phi2 phi1) (-.f64 phi2 phi1)) #s(literal -2 binary64))) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(literal 2 binary64)))))))
▶	79.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.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 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.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))))))))))
	76.4%	(.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 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (fma.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (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 (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (fma.f64 (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (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))))))))))
	79.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (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 (-.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (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))))))))))
	40.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (/.f64 (-.f64 (.f64 phi1 phi1) (.f64 phi2 phi2)) (+.f64 phi2 phi1)) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (/.f64 (-.f64 (.f64 phi1 phi1) (.f64 phi2 phi2)) (+.f64 phi2 phi1)) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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.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 (-.f64 phi2 phi1)) (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 #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)) (/.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) #s(literal 2 binary64))))))))
	44.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 (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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #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 (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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	42.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 (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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #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 (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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 (+.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 (-.f64 #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 (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))))))))))
	42.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 (+.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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #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 (+.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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
▶	49.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)) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #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)) (cos.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 (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 (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)))) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	54.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) (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 (-.f64 #s(literal 1 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 (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))))))))))
	78.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)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (neg.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 (neg.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 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (neg.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 (neg.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))))))))))
	74.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 (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 (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 (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 (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 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #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 (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 (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 (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 (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 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #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 (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 (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 (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 (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 (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 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #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 (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 (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 (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 (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 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #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.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)) (-.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 (-.f64 #s(literal 1 binary64) (+.f64 (pow.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))))))))))))
	65.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)))))) (.f64 (pow.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 phi1 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 lambda1 lambda2)))))) (.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 #s(literal 1/2 binary64) (-.f64 phi1 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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
	65.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)))))) (.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 #s(literal 1/2 binary64) (-.f64 phi1 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 lambda1 lambda2)))))) (.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 #s(literal 1/2 binary64) (-.f64 phi1 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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
	65.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 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))))))))
	65.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 (-.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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))))))
	65.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 (-.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 #s(literal 1/2 binary64) (-.f64 phi1 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 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
	65.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 (fabs.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 phi1 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 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
	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 (cos.f64 phi1) (cos.f64 phi2)) (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.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 (+.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)))))))))
▶	43.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 #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.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 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	51.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 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)))))))))
	49.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 #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)))))))))
	65.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 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (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 #s(literal 1/2 binary64) (-.f64 phi1 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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) #s(literal 1/2 binary64))))))
	60.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 #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)))))))))))
	55.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 #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))))))))))))
	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 (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 (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 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)))))))))))))))
	41.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) 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)))))))))))))
	40.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) 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))))))))))))))
	40.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)))))))))))))
	62.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 (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 #s(literal 1/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 (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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))))))))))
	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)) (.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))))))))))
	54.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))) (.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))))))))))
	49.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 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))))))))))
	54.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) (pow.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))))))))))
	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) lambda2)) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(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)))))))))))
	61.1%	(.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))))))))))
	53.9%	(.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))))))))))
	55.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.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 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.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))))))))))
	45.4%	(.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))))))))))
	43.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)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 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))))))))))
	36.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (exp.f64 (.f64 (log.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 (exp.f64 (.f64 (log.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))))))))))
	48.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 phi1 phi2)))))))) (sqrt.f64 (-.f64 #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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 phi1 phi2))))))))))))
	46.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 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.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)))))))))
▶	48.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)))))))))
	47.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) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)))))))))
	47.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 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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)))))))))
	40.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 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))))))))))
	41.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 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)))))) (sqrt.f64 (-.f64 #s(literal 1 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))))))))))
	40.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 #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)))))) (sqrt.f64 (-.f64 #s(literal 1 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))))))))))
	44.5%	(.f64 R (.f64 #s(literal 2 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))))))))))
	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))))) (+.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))))))))))
	46.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))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 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))))))))))
	48.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) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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))))))))))
	48.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))))))))))
	47.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) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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 13 498 to 5 290 computations (60.8% saved)

sample0.0ms (0.0%)

Memory

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

Calls

Call 1

Inputs
2
1/2
1
(PI)
-1
-1/2

Outputs
#s(literal 2 binary64)
#s(literal 1/2 binary64)
#s(literal 1 binary64)
#s(literal 884279719003555/281474976710656 binary64)
#s(literal -1 binary64)
#s(literal -1/2 binary64)

Samples

0.0ms

1×

valid

Compiler

Compiled 8 to 8 computations (0.0% saved)

Precisions

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

adjust: 0.0ms (0.0% of total)

series1.4s (3.7%)

Memory

-296.8MiB live, 2 218.0MiB allocated; 1.1s collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	4197	67432

Stop Event

1×	iter-limit

Counts

107 → 834

Calls

Call 1

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

Outputs
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) 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 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- 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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))))
#s(approx (atan2 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)))) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (+.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (+.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 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)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (+.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 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 (neg.f64 lambda2))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 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)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 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 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)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))))))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (fma.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/12 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 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)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.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 (neg.f64 lambda2))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 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)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.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 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)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/12 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/12 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2))))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2))))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/4 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2))))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))))))
#s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos.f64 (neg.f64 lambda2)))
#s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))
#s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))
#s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))) (sin.f64 (neg.f64 lambda2))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 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)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (fma.f64 #s(literal -1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 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)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 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)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))))))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 phi2) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 phi2) #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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 phi2) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 phi2) #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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 phi2) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 phi2) #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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 phi2) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 phi2) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/48 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 phi2) #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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 phi2) #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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) (* (* (* (sin (+ (* (PI) 1/2) 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 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) (* (* (* (sin (+ (* (PI) 1/2) 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 phi2) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) (* (* (* (sin (+ (* (PI) 1/2) 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 phi2) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 phi2) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) #s(literal 1 binary64))
#s(approx (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+.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)))))))))
#s(approx (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (.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))))))))
#s(approx (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (.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)))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- 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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 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 #s(literal 1 binary64) lambda1)) (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) lambda1) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) lambda1)))))
#s(approx (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (.f64 lambda1 (fma.f64 #s(literal -1 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 #s(literal 1 binary64) lambda1))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- 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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))))
#s(approx (* 2 (atan2 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))))
#s(approx (atan2 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)))) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (-.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 (* 1/2 (- lambda1 lambda2))))) (.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 (* 1/2 (- lambda1 lambda2)))) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) 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 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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 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 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (-.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)))) 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)))))))))
#s(approx (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.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))))) (/.f64 #s(literal 1 binary64) lambda1)))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- 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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (+.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (+.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.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 lambda1) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (+.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 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 lambda1)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.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 lambda1) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.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 lambda1) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))))))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 lambda2 (fma.f64 #s(literal 1/12 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.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 lambda1) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.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 lambda1)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.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 lambda1) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.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 lambda1) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.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 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 lambda2 (fma.f64 #s(literal 1/12 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (-.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 (* 1/2 (- lambda1 lambda2)))))) (-.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 (* 1/2 (- lambda1 lambda2)))))) (-.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 (* 1/2 (- lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2))))) (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 (* 1/2 (- lambda1 lambda2))))) (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 (* 1/2 (- lambda1 lambda2))))) (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 (* 1/2 (- lambda1 lambda2)))) (cos.f64 lambda1))
#s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (sin.f64 lambda1))))) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 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)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.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)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 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)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))))))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/12 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 phi2) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 phi2) #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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 phi2) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 phi2) #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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 phi2) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 phi2) #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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 phi2) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 phi2) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/8 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda2 (fma.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/48 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 phi2) #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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (.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)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 phi2) #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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) (* (* (* (sin (+ (* (PI) 1/2) 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 phi2) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) (* (* (* (sin (+ (* (PI) 1/2) 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 phi2) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 phi2) (.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/12 binary64) (.f64 lambda1 (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2)))))))
#s(approx (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1/12 binary64) (.f64 lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))))
#s(approx (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/12 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/240 binary64) (.f64 lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))))))))
#s(approx (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))))))
#s(approx (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (.f64 lambda2 (fma.f64 #s(literal -1/12 binary64) (.f64 lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))
#s(approx (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/12 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/240 binary64) (.f64 lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))))))
#s(approx (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/12 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/10080 binary64) (.f64 lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal 1/240 binary64) (.f64 lambda1 (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))))))
#s(approx (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))))))
#s(approx (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))))
#s(approx (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/240 binary64) (.f64 lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2)))))))))
#s(approx (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/240 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/10080 binary64) (.f64 lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (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) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal 1/12 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (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/240 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/12 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (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/12 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/240 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal 1/10080 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))))))
#s(approx (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 phi2))))
#s(approx (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 #s(literal 1/12 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2))))))
#s(approx (* (cos phi2) (* (cos (* -1/2 lambda2)) (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/240 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2)) (.f64 #s(literal 1/12 binary64) (cos.f64 phi2)))))))
#s(approx (* (cos phi2) (* (cos (* -1/2 lambda2)) (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/12 binary64) (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/240 binary64) (cos.f64 phi2) (.f64 #s(literal 1/10080 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2))))))))))
#s(approx (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/12 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))) (.f64 lambda2 (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/12 binary64) (*.f64 #s(literal -1/240 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
#s(approx (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))) (.f64 lambda2 (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/12 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/10080 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/240 binary64))))) #s(literal 1/2 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 (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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 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 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 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 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 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 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 (/ (- 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 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (.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))))))
#s(approx (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))
#s(approx (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))
#s(approx (cos (* -1/2 lambda2)) (cos.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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- 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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))))
#s(approx (* 2 (atan2 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))))
#s(approx (atan2 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)))) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #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 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #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 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (-.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 (* 1/2 (- lambda1 lambda2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) 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 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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 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 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.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 (neg.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 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.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 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.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 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.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 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (neg.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 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))
#s(approx (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (pow.f64 (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))
#s(approx (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (pow.f64 (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))
#s(approx (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))
#s(approx (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (neg.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 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))))))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))
#s(approx (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
#s(approx (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) (+.f64 (sin.f64 (neg.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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) (+.f64 (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (neg.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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) (+.f64 (sin.f64 (neg.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 (neg.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 (sin (* phi1 1/2)) (*.f64 #s(literal 1/2 binary64) phi1))
#s(approx (sin (* phi1 1/2)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
#s(approx (sin (* phi1 1/2)) (.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 (* phi1 1/2)) (.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 (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2)))) (+.f64 (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))
#s(approx (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2)))) (+.f64 (sin.f64 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/384 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))))
#s(approx (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2)))) (+.f64 (sin.f64 (neg.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 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 #s(literal 1/384 binary64) (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))))))))))
#s(approx (cos (* phi1 1/2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (cos (* phi1 1/2)) (+.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 (* phi1 1/2)) (+.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 (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.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 (neg.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 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.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 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.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 (neg.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 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (+.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 phi1 (sin.f64 (neg.f64 phi2))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (+.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))) (.f64 phi1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (sin.f64 (neg.f64 phi2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (+.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))) (.f64 phi1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (sin.f64 (neg.f64 phi2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal 1/12 binary64) (sin.f64 (neg.f64 phi2)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi2)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi2)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi2)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))))))))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (sin.f64 (neg.f64 phi2)) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (sin.f64 (neg.f64 phi2)) (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal 1/12 binary64) (sin.f64 (neg.f64 phi2)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi2)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi2)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 phi1 (sin.f64 (neg.f64 phi2))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) (.f64 phi1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (sin.f64 (neg.f64 phi2)) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) (.f64 phi1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (sin.f64 (neg.f64 phi2)) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (fma.f64 #s(literal 1/12 binary64) (sin.f64 (neg.f64 phi2)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi2)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))))))))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/12 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2))))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi1 (cos.f64 (neg.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1/12 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2)))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)) (.f64 #s(literal -1/4 binary64) (*.f64 phi1 (cos.f64 (neg.f64 phi2))))))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/12 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2))))))))))
#s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 (neg.f64 phi2)))
#s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (+.f64 (cos.f64 (neg.f64 phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2))))))
#s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (+.f64 (cos.f64 (neg.f64 phi2)) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 (cos.f64 (neg.f64 phi2)))) (sin.f64 (neg.f64 phi2))))))
#s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (+.f64 (cos.f64 (neg.f64 phi2)) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2)))))) (sin.f64 (neg.f64 phi2))))))
#s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (* 2 (* 1/2 (- phi1 phi2))) (-.f64 phi1 phi2))
#s(approx (* 1/2 (- phi1 phi2)) (*.f64 #s(literal -1/2 binary64) phi2))
#s(approx (* 1/2 (- phi1 phi2)) (fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) phi1)))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 phi1 (sin.f64 (neg.f64 phi2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (neg.f64 phi2)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (neg.f64 phi2)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal 1/12 binary64) (sin.f64 (neg.f64 phi2)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi2)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi2)) (-.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi2)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))))))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal 1/2 binary64) (sin.f64 (neg.f64 phi2)))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal 1/12 binary64) (sin.f64 (neg.f64 phi2)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi2)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi2)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal 1/2 binary64) (sin.f64 (neg.f64 phi2)))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.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))) (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) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.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))) (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 (cos.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 (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 (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) phi2)) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.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))) (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) (.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) 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 (cos.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 (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 (cos.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))) (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 (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) phi2)) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 (cos.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 (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 (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) phi2)) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (fma.f64 (cos.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))) (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 (cos.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 (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 (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) phi2)) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.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)))) (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 (fma.f64 (cos.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 (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 (cos.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)))) (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 (cos.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 (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 (cos.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))) (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 (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) phi2)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.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))) (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 (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) 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 (cos.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 (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 (cos.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))) (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 (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) phi2)) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.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))) (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) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 phi1 (fma.f64 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (fma.f64 (cos.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))) (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) 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) (.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) 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) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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) (.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) phi2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) 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) (.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) 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/6 binary64) (.f64 (cos.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)))) (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 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (fma.f64 (cos.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))) (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 (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.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)))))
#s(approx (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 phi1 (.f64 (cos.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 (cos.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))))))
#s(approx (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.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 (cos.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 (cos.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))))))
#s(approx (* (* (* (sin (+ (* (PI) 1/2) 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) (.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 phi1 (.f64 (cos.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 (cos.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 (cos.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))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 phi1 (.f64 (cos.f64 phi2) (.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 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (.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 phi2) (.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 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.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 phi1 (.f64 (cos.f64 phi2) (.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 phi2) (.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 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))
#s(approx (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (fma.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (+ (* (PI) 1/2) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (+ (* (PI) 1/2) phi1)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (+ (* (PI) 1/2) phi1)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (sin (+ (* (PI) 1/2) phi1)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (+ (* (PI) 1/2) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ (* (PI) 1/2) phi1) (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.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))) (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) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.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))) (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 (cos.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 (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 (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) phi2)) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.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))) (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 (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) phi2)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 (cos.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 (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 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.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))) (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 (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) phi2)) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (cos.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 (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 (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) phi2)) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.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))) (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 (cos.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 (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 (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) phi2)) #s(literal 2 binary64)))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.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)))) (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 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.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)))) (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 (pow.f64 (fma.f64 (cos.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 (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 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.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))) (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)))))) (fma.f64 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.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))) (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) (.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) phi2)) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.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)))) (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 (pow.f64 (fma.f64 (cos.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 (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 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.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))) (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 (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) phi2)) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.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))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (fma.f64 (cos.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))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) 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) (.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) 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) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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) (.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) phi2)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) 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/6 binary64) (.f64 (cos.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)))) (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) (.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) 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) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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) (.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) phi2)) #s(literal 2 binary64)))))
#s(approx (- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.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 phi2) (pow.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 (- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.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 (- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.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 #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))))))) (.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 (- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.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)))))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.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 #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))))))) (.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 (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))
#s(approx (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.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 lambda1 (.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) lambda2))))))))))
#s(approx (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 lambda1 (.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) lambda2)))))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))))
#s(approx (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (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 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 #s(literal 1/720 binary64) (.f64 lambda1 (.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) lambda2))))))))))))))
#s(approx (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))
#s(approx (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.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 lambda1 (.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) lambda2)))))))))
#s(approx (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 lambda1 (.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) lambda2)))))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
#s(approx (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (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 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 #s(literal 1/720 binary64) (.f64 lambda1 (.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) lambda2)))))))))))))
#s(approx (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.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) lambda2)))))) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))
#s(approx (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (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 lambda1 (.f64 (cos.f64 phi2) (.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 lambda1 (.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) lambda2)))))))))))
#s(approx (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (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 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (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 lambda1 (.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) lambda2)))))) (.f64 #s(literal 1/24 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (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) lambda2))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (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) lambda2)) (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) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (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) lambda2)) (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) lambda2)) (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) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 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 (sin (* 1/2 (- phi1 phi2))) 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) 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 (sin (* 1/2 (- phi1 phi2))) 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) 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) 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 (sin (* 1/2 (- phi1 phi2))) 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) 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) 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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))
#s(approx (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))))
#s(approx (sin (* phi1 1/2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
#s(approx (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
#s(approx (cos (* phi1 1/2)) (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 (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
#s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 (-.f64 phi1 phi2)))
#s(approx (* 2 (* 1/2 (- phi1 phi2))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 phi2 phi1)))))
#s(approx (* 1/2 (- phi1 phi2)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 phi2 phi1)))))
#s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
#s(approx (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (+ (* (PI) 1/2) phi1)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ (* (PI) 1/2) phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.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 (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 (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))))))) #s(literal 2 binary64))))))))
#s(approx (* 2 (atan2 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))) #s(literal 2 binary64)))))))
#s(approx (atan2 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)))) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))))))) #s(literal 2 binary64))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))))))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))))))) #s(literal 2 binary64)))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))))))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))
#s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))
#s(approx (* 2 (* 1/2 (- phi1 phi2))) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (/.f64 phi2 phi1) #s(literal 1 binary64)))))
#s(approx (* 1/2 (- phi1 phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))))))) #s(literal 2 binary64)))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 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) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) 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 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)) (.f64 #s(literal -1 binary64) phi1)))) (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 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)) (.f64 #s(literal -1 binary64) phi1)))) (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) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.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)) (.f64 #s(literal -1 binary64) phi1)))) (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 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)) (.f64 #s(literal -1 binary64) phi1)))) (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) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.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)) (.f64 #s(literal -1 binary64) phi1)))) (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 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)) (.f64 #s(literal -1 binary64) phi1)))) (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) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.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)) (.f64 #s(literal -1 binary64) phi1)))) (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) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.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)) (.f64 #s(literal -1 binary64) phi1)))) (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 (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.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)) (*.f64 #s(literal -1 binary64) phi1))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.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)) (*.f64 #s(literal -1 binary64) phi1))))))
#s(approx (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) phi1)))))
#s(approx (sin (+ (* (PI) 1/2) phi1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi1))))
#s(approx (+ (* (PI) 1/2) phi1) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi1)) #s(literal 1 binary64)))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.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)) (.f64 #s(literal -1 binary64) phi1)))) (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) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.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)) (.f64 #s(literal -1 binary64) phi1)))) (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 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 phi2 (*.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (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 (* phi2 1/2) (*.f64 #s(literal 1/2 binary64) phi2))
#s(approx phi2 phi2)
#s(approx (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2)))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
#s(approx (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal 1/48 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
#s(approx (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2)))) (.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/3840 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/48 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))))
#s(approx (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2)))) (.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/3840 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal 1/645120 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))))))
#s(approx (sin (neg (* phi2 1/2))) (.f64 phi2 (-.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (sin (neg (* phi2 1/2))) (.f64 phi2 (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/48 binary64) (*.f64 #s(literal -1/3840 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
#s(approx (sin (neg (* phi2 1/2))) (.f64 phi2 (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/48 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/645120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/3840 binary64))))) #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))))
#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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (+.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 phi2 (sin.f64 phi1)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (+.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 phi1) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (+.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 phi1) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (.f64 #s(literal -1/12 binary64) (sin.f64 phi1))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))))))))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 phi1)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal -1/4 binary64) (cos.f64 phi1))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (.f64 #s(literal -1/12 binary64) (sin.f64 phi1))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))) (.f64 #s(literal -1/4 binary64) (cos.f64 phi1))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 phi2 (sin.f64 phi1)) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 phi1) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 phi1) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (.f64 #s(literal -1/12 binary64) (sin.f64 phi1)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))))))))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal -1/4 binary64) (cos.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/12 binary64) (.f64 phi2 (sin.f64 phi1)))) (.f64 #s(literal -1/4 binary64) (cos.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 phi1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi2 (cos.f64 phi1))) (.f64 #s(literal 1/2 binary64) (sin.f64 phi1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal 1/12 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1/4 binary64) (cos.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (sin.f64 phi1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (sin.f64 phi1)))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (.f64 phi2 (cos.f64 phi1)) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi1))))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi1) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal -1/12 binary64) (.f64 phi2 (sin.f64 phi1)))))))))
#s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))
#s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (cos.f64 phi1))) (.f64 #s(literal -1 binary64) (sin.f64 phi1))))))
#s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi1) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1))))) (*.f64 #s(literal -1 binary64) (sin.f64 phi1))))))
#s(approx (* 2 (* 1/2 (- phi1 phi2))) (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 phi2 (sin.f64 phi1)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))) (.f64 phi2 (fma.f64 #s(literal 1/4 binary64) (/.f64 (sin.f64 phi1) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))) (.f64 phi2 (fma.f64 #s(literal 1/4 binary64) (/.f64 (sin.f64 phi1) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (.f64 #s(literal -1/12 binary64) (sin.f64 phi1))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))))))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (sin.f64 phi1)))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 phi1)) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (.f64 #s(literal -1/12 binary64) (sin.f64 phi1))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos 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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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) phi1)) (cos 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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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) phi1)) (cos 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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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) phi1)) (cos 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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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) phi1)) (cos 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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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) 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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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) 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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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) 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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.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 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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (* (* (sin (+ (* (PI) 1/2) 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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (pow.f64 phi2 #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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (pow.f64 phi2 #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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi2 #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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi2 #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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/24 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi2 #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/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/24 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos 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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos 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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos 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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.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) (/.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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos 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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.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) (/.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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.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) (/.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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos 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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) 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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) 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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) 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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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)) (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 (- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (.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 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 (- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (.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 phi2 (-.f64 (.f64 phi2 (-.f64 (.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 #s(literal -1/2 binary64) lambda2)))))) (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))))))) (.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) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (.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 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.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)))))) (.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 #s(literal -1/2 binary64) lambda2))))))) (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))))))) (.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) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+.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)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))
#s(approx (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (.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 #s(literal 1/2 binary64) (.f64 lambda1 (.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) lambda2))))))))))
#s(approx (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (.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 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 lambda1 (.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) lambda2)))))) (.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 #s(literal -1/2 binary64) lambda2)))))))))))
#s(approx (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (.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 (pow.f64 phi2 #s(literal 2 binary64)) (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 #s(literal -1/2 binary64) lambda2))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.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 #s(literal 1/720 binary64) (.f64 lambda1 (.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) lambda2))))))))))))))
#s(approx (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (.f64 #s(literal -1 binary64) (.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)))))))
#s(approx (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (fma.f64 #s(literal -1 binary64) (.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 #s(literal 1/2 binary64) (.f64 lambda1 (.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) lambda2)))))))))
#s(approx (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (fma.f64 #s(literal -1 binary64) (.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 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 lambda1 (.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) lambda2)))))) (.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 #s(literal -1/2 binary64) lambda2))))))))))
#s(approx (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))))) (fma.f64 #s(literal -1 binary64) (.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 (pow.f64 phi2 #s(literal 2 binary64)) (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 #s(literal -1/2 binary64) lambda2))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.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 #s(literal 1/720 binary64) (.f64 lambda1 (.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) lambda2)))))))))))))
#s(approx (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (.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))))))
#s(approx (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.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) lambda2)))))) (.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)))))))
#s(approx (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (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 (pow.f64 phi2 #s(literal 2 binary64)) (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 #s(literal -1/2 binary64) lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 lambda1 (.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) lambda2)))))))))))
#s(approx (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))) (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 (pow.f64 phi2 #s(literal 2 binary64)) (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 #s(literal -1/2 binary64) lambda2))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 lambda1 (.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) lambda2)))))) (.f64 #s(literal 1/24 binary64) (.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))))))))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))
#s(approx (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (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) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (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) lambda2)) (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) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (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) lambda2)) (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) lambda2)) (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) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))))
#s(approx (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 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)))))
#s(approx (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (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 (.f64 #s(literal -1/2 binary64) lambda2)) (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 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))))
#s(approx (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))) (fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (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 (.f64 #s(literal -1/2 binary64) lambda2)) (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 (.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))))))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 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 (sin (* 1/2 (- phi1 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 (sin (* 1/2 (- phi1 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 (* 2 (* 1/2 (- phi1 phi2))) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64))))
#s(approx (* 1/2 (- phi1 phi2)) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.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)))) #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 (fma.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)))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.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)))) #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 (fma.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)))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.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)))) #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 (fma.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)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- 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 (fma.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)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.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)))) #s(literal 2 binary64))))
#s(approx (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (pow.f64 (fma.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)))) #s(literal 2 binary64)))
#s(approx (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) (fma.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)))))
#s(approx (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.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)))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.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 (fma.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)))) #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 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 (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))) #s(literal 2 binary64))))))))
#s(approx (* 2 (atan2 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) #s(literal 2 binary64)))))))
#s(approx (atan2 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)))) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))) #s(literal 2 binary64))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) #s(literal 2 binary64)))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2))))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))
#s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))
#s(approx (* 2 (* 1/2 (- phi1 phi2))) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2))))))
#s(approx (* 1/2 (- phi1 phi2)) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 phi1 phi2))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) #s(literal 2 binary64)))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.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) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) 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 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.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 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.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) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.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 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.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) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.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 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.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) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.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) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.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 (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.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) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.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 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (*.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64))))

Calls

15 calls:

Time	Variable	Point
444.0ms	phi2	0
115.0ms	phi1	-inf
84.0ms	lambda1	inf
66.0ms	phi1	0
60.0ms	lambda1	0

rewrite372.0ms (1.0%)

Memory

-11.2MiB live, 915.8MiB allocated; 120ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	121	2747
0	222	2668
1	881	2103
0	4208	1987

Stop Event

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

Counts

107 → 1 865

Calls

Call 1

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

Outputs
(.f64 (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))) (-.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (-.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(-.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (neg.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(.f64 (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (sqrt.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)) (pow.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)))
(pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (.f64 (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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) #s(literal 2 binary64))))
(.f64 (neg.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)) (pow.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (pow.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (pow.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) #s(literal 2 binary64))))
(.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)))))
(pow.f64 (.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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))
(pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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))
(pow.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (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 (-.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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 #s(literal -1/2 binary64) (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)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))) (+.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #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 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (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 (-.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)) (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 (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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 #s(literal -1/2 binary64) (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)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (-.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 #s(literal -1/2 binary64) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 #s(literal -1/2 binary64) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)))
(neg.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 (.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)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #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 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.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)))))
(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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.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)))))
(fma.f64 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (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 (cos.f64 phi1)) (.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)))))
(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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (.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))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(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)) (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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(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)))) (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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (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 (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(-.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)))))
(sqrt.f64 (.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)))
(exp.f64 (.f64 (log.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 2 binary64)))
(+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (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 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 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 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.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 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (+.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 #s(literal 1 binary64) (/.f64 (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)) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))))) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))))
(.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 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.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 (-.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 (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 (-.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 (.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 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 2 binary64)) (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 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 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))))))
(/.f64 (+.f64 (pow.f64 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (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)) #s(literal 3 binary64))) (fma.f64 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))) (-.f64 (.f64 (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)) (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 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (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 #s(literal -1/2 binary64) phi1))) #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 phi2 phi1))) #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))))))
(neg.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(fma.f64 (neg.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 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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))))
(fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1)))))
(fma.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 #s(literal -1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))
(fma.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (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 #s(literal -1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))))
(fma.f64 #s(literal 1/2 binary64) (neg.f64 (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))
(-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))) (neg.f64 (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) (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)))
(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 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1)))))
(+.f64 (.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 #s(literal -1/2 binary64) phi1)))) (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))
(+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (+.f64 (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 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))
(+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (pow.f64 (.f64 (neg.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 phi2 phi1)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(+.f64 (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)) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))))
(+.f64 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 2 binary64)))
(+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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 (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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.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 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(/.f64 (fma.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 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (-.f64 (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)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (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 #s(literal -1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (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 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (fma.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))))))
(neg.f64 (-.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))
(sin.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) phi1)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(fma.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) (.f64 (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(fma.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) (neg.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))
(fma.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) (.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 #s(literal -1/2 binary64) phi2)) (.f64 (neg.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 #s(literal -1/2 binary64) phi2)) (neg.f64 (.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 #s(literal -1/2 binary64) phi2)) (.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) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (neg.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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (.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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))))
(-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(-.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(-.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (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))) (neg.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (neg.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(*.f64 #s(literal 1/2 binary64) phi1)
(*.f64 phi1 #s(literal 1/2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) phi1) #s(literal 2 binary64))
(/.f64 (*.f64 phi1 #s(literal 1 binary64)) #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))
phi1
#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 #s(literal -1/2 binary64) phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (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 (neg.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
(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 phi2 #s(literal 1/2 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (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 phi2 #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) phi2)
(/.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))
phi2
(.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(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 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal -1/2 binary64) phi2) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.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) (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal -1/2 binary64) phi2))) (cos.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 #s(literal -1/2 binary64) phi1)))) #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 (.f64 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(neg.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))))
(neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(sin.f64 (fma.f64 #s(literal -1/2 binary64) phi1 (*.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 #s(literal 1/2 binary64) phi1)))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(cos.f64 (neg.f64 (*.f64 #s(literal -1/2 binary64) phi1)))
(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 #s(literal -1/2 binary64) phi1))
(cos.f64 (*.f64 (fabs.f64 phi1) #s(literal 1/2 binary64)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 phi2 #s(literal 1/2 binary64) (PI.f64)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))
(cos.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (*.f64 phi2 #s(literal 1/2 binary64))))
(*.f64 (neg.f64 phi2) #s(literal 1/2 binary64))
(*.f64 #s(literal -1/2 binary64) phi2)
(*.f64 phi2 #s(literal -1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (neg.f64 phi2))
(/.f64 (*.f64 (neg.f64 phi2) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (neg.f64 phi2) #s(literal 2 binary64))
(neg.f64 (*.f64 phi2 #s(literal 1/2 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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))
(.f64 (cos.f64 phi2) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi2)))
(/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (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 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 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))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))
(+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.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 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (+.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 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #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 1/2 binary64))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(/.f64 (neg.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 (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal -2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 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 (neg.f64 phi1) phi2)) (cos.f64 (-.f64 (neg.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) phi2)) (cos.f64 (-.f64 (fabs.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 (fabs.f64 phi2))) (cos.f64 (-.f64 phi1 (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (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 (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 (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 (cos.f64 (-.f64 phi2 phi1)) (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 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(fma.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1)) (cos.f64 phi2)))
(fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) (/.f64 (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) #s(literal 2 binary64)))
(fma.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (/.f64 (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) #s(literal 2 binary64)))
(+.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1))))
(+.f64 (.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1)) (cos.f64 phi2)))
(+.f64 (/.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(+.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (/.f64 (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) #s(literal 2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1))) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1)))) (-.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1))) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1))))))
(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 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1)))
(fma.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)))
(fma.f64 (sin.f64 phi1) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)))
(fma.f64 (cos.f64 phi1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1)))
(-.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (neg.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)))
(-.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (neg.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1))))
(-.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (neg.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 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)))
(+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1)))
(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 phi2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(cos.f64 (neg.f64 (neg.f64 phi2)))
(cos.f64 (neg.f64 (fabs.f64 phi2)))
(cos.f64 (fabs.f64 (fabs.f64 phi2)))
(cos.f64 (neg.f64 phi2))
(cos.f64 (fabs.f64 phi2))
(cos.f64 phi2)
(+.f64 (.f64 (sin.f64 phi2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(sin.f64 (*.f64 (-.f64 lambda1 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)))))
(.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 (.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 (.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 #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 lambda1) #s(literal 1/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 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 #s(literal -1/2 binary64) lambda2))
(fma.f64 #s(literal 1/2 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))
(-.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64)))
(+.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.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 #s(literal -1/2 binary64) lambda2))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 lambda2) lambda1)) lambda1)
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)
(.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) #s(literal 2 binary64))
(*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))
(*.f64 #s(literal 1/2 binary64) (+.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(.f64 #s(literal 1/2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 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 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 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 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (-.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (-.f64 lambda2 lambda1) (-.f64 lambda2 lambda1)) #s(literal -2 binary64))
(/.f64 (+.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 2 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 (*.f64 (-.f64 lambda2 lambda1) #s(literal 2 binary64)) #s(literal -2 binary64))
(/.f64 (fma.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64) (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))) #s(literal -4 binary64))
(/.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1)) #s(literal -2 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 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 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))
(fma.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(fma.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) #s(literal 1 binary64) (.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 #s(literal 1 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(fma.f64 #s(literal 1 binary64) lambda1 (*.f64 #s(literal 1 binary64) (neg.f64 lambda2)))
(fma.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(fma.f64 lambda1 #s(literal 1 binary64) (*.f64 (neg.f64 lambda2) #s(literal 1 binary64)))
(fma.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(-.f64 (fma.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64) (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 lambda2 #s(literal 1/2 binary64)))
(-.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (-.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(-.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64)))
(-.f64 (.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/2 binary64)) (neg.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(-.f64 lambda1 (neg.f64 (neg.f64 lambda2)))
(-.f64 lambda1 lambda2)
(+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) lambda1) (.f64 #s(literal 1 binary64) (neg.f64 lambda2)))
(+.f64 (.f64 #s(literal 1 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 #s(literal 1 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(+.f64 (.f64 lambda1 #s(literal 1 binary64)) (.f64 (neg.f64 lambda2) #s(literal 1 binary64)))
(+.f64 (neg.f64 lambda2) lambda1)
(+.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(+.f64 lambda1 (neg.f64 lambda2))
lambda1
lambda2
(.f64 (pow.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64))
(sin.f64 (acos.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (.f64 (sqrt.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(cos.f64 (asin.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (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 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (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 #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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 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)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #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))))) (-.f64 #s(literal 1 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)))))
(/.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (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 #s(literal 1 binary64) #s(literal 1 binary64) (-.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)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #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)))) (.f64 #s(literal 1 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)))))))
(/.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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1 binary64) #s(literal 1 binary64) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (.f64 (fma.f64 #s(literal -1/2 binary64) (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)))))
(neg.f64 (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (fabs.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fabs.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #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 (neg.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #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 (neg.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (.f64 (-.f64 phi1 phi2) #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 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (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 (-.f64 #s(literal 1 binary64) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1/2 binary64) (.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)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) #s(literal 1 binary64))
(+.f64 #s(literal 1 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))))
#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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) 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) phi1)))))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1/2 binary64) phi1))))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1/2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 #s(literal 1/2 binary64) phi1))))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1))))
(/.f64 (-.f64 (.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1/2 binary64) 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) phi1)))))))) (+.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1/2 binary64) 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) phi1))))) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1/2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1))))) (-.f64 (.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 #s(literal 1/2 binary64) phi1))))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1/2 binary64) phi1)))))) #s(literal 3 binary64))) (fma.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1/2 binary64) 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) phi1)))))) (.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1/2 binary64) phi1))))))))))
(/.f64 (-.f64 (.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 #s(literal 1/2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1))))))) (-.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))
(/.f64 (+.f64 (pow.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1/2 binary64) phi1))))) #s(literal 3 binary64))) (fma.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 #s(literal 1/2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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) phi1)))))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1/2 binary64) 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))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1))))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)))
(fma.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1/2 binary64) phi1))))))))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1))))))
(fma.f64 (sin.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) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)))
(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 #s(literal 1/2 binary64) phi1))))))))
(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 #s(literal 1/2 binary64) phi1))))))
(fma.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1/2 binary64) phi1))))))))
(fma.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1))))))
(-.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1/2 binary64) 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) phi1))))) (.f64 (fma.f64 (cos.f64 (-.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 #s(literal 1/2 binary64) phi1))))) (.f64 (neg.f64 (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1))))) (neg.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1))))
(+.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1/2 binary64) phi1))))))))
(+.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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) phi1))))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) #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 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.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 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 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))
(/.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 lambda2 lambda1))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.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) (*.f64 (cos.f64 (-.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 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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64))))))
(neg.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(fma.f64 (neg.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))
(fma.f64 (cos.f64 (-.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 lambda2 lambda1))) #s(literal 1/2 binary64))
(-.f64 #s(literal 1/2 binary64) (neg.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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)))
(+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))
(sin.f64 (*.f64 (-.f64 lambda1 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)))))
(.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 (.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 (.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 #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 lambda1) #s(literal 1/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 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 #s(literal -1/2 binary64) lambda2))
(fma.f64 #s(literal 1/2 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2)))
(-.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64)))
(+.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.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 #s(literal -1/2 binary64) lambda2))
(.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (fabs.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(.f64 (sin.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))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.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 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(*.f64 #s(literal 1/2 binary64) phi1)
(*.f64 phi1 #s(literal 1/2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) phi1) #s(literal 2 binary64))
(/.f64 (*.f64 phi1 #s(literal 1 binary64)) #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 (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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1))))))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1))))))) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))))))
(neg.f64 (+.f64 #s(literal -1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))))
(.f64 (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))) (-.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (-.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(-.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (neg.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(.f64 (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (sqrt.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)) (pow.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)))
(pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (.f64 (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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) #s(literal 2 binary64))))
(.f64 (neg.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)) (pow.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (pow.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (pow.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) #s(literal 2 binary64))))
(.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)))))
(pow.f64 (.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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))
(pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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))
(pow.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (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 (-.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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 #s(literal -1/2 binary64) (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)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))) (+.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #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 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (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 (-.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)) (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 (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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 #s(literal -1/2 binary64) (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)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (-.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 #s(literal -1/2 binary64) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 #s(literal -1/2 binary64) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)))
(neg.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 (.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)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #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 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.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)))))
(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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.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)))))
(fma.f64 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (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 (cos.f64 phi1)) (.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)))))
(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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (.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))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(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)) (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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(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)))) (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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (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 (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(-.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)))))
(sqrt.f64 (.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)))
(exp.f64 (.f64 (log.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 2 binary64)))
(+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (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 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 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 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.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 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (sqrt.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)) (pow.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)))
(pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (.f64 (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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) #s(literal 2 binary64))))
(.f64 (neg.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)) (pow.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (pow.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (pow.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) #s(literal 2 binary64))))
(.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)))))
(pow.f64 (.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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))
(pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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))
(pow.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (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 (-.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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 #s(literal -1/2 binary64) (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)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))) (+.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #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 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (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 (-.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)) (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 (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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 #s(literal -1/2 binary64) (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)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (-.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 #s(literal -1/2 binary64) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 #s(literal -1/2 binary64) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)))
(neg.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 (.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)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #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 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.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)))))
(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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.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)))))
(fma.f64 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (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 (cos.f64 phi1)) (.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)))))
(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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (.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))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(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)) (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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(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)))) (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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (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 (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(-.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)))))
(sqrt.f64 (.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)))
(exp.f64 (.f64 (log.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 2 binary64)))
(+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (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 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 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 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.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 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) #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 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.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 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 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))) (.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))))
(/.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 lambda2 lambda1))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.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) (*.f64 (cos.f64 (-.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 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 lambda2 lambda1)) #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 lambda2 lambda1)) #s(literal 1/2 binary64))))))
(neg.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(fma.f64 (neg.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))
(fma.f64 (cos.f64 (-.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 lambda2 lambda1))) #s(literal 1/2 binary64))
(-.f64 #s(literal 1/2 binary64) (neg.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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)))
(+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))
(/.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 2 binary64))
(/.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 2 binary64))
(.f64 (+.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (cos.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 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 lambda2 lambda1)) #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))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (+.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (+.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 lambda2 lambda1)) #s(literal 1/2 binary64))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))
(neg.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))))
(sin.f64 (+.f64 (-.f64 lambda2 lambda1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(fma.f64 (fabs.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (fabs.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (.f64 (neg.f64 (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 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (fabs.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(fma.f64 (neg.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (.f64 (neg.f64 (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 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (-.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 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))))
(-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))
(cos.f64 (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1))))
(cos.f64 (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos.f64 (fabs.f64 (-.f64 lambda2 lambda1)))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.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)))
(+.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (neg.f64 (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 (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)))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 lambda2) lambda1)) lambda1)
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(.f64 (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)
(.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) #s(literal 2 binary64))
(*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))
(*.f64 #s(literal 1/2 binary64) (+.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(.f64 #s(literal 1/2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 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 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 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 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (-.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (-.f64 lambda2 lambda1) (-.f64 lambda2 lambda1)) #s(literal -2 binary64))
(/.f64 (+.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 2 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 (*.f64 (-.f64 lambda2 lambda1) #s(literal 2 binary64)) #s(literal -2 binary64))
(/.f64 (fma.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64) (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))) #s(literal -4 binary64))
(/.f64 (*.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1)) #s(literal -2 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 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 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))
(fma.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(fma.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) #s(literal 1 binary64) (.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(fma.f64 #s(literal 1 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 #s(literal 1 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(fma.f64 #s(literal 1 binary64) lambda1 (*.f64 #s(literal 1 binary64) (neg.f64 lambda2)))
(fma.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(fma.f64 lambda1 #s(literal 1 binary64) (*.f64 (neg.f64 lambda2) #s(literal 1 binary64)))
(fma.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(-.f64 (fma.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64) (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 lambda2 #s(literal 1/2 binary64)))
(-.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (-.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(-.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 (-.f64 lambda2 lambda1) #s(literal 1/2 binary64)))
(-.f64 (.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/2 binary64)) (neg.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(-.f64 lambda1 (neg.f64 (neg.f64 lambda2)))
(-.f64 lambda1 lambda2)
(+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) lambda1) (.f64 #s(literal 1 binary64) (neg.f64 lambda2)))
(+.f64 (.f64 #s(literal 1 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 #s(literal 1 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(+.f64 (.f64 lambda1 #s(literal 1 binary64)) (.f64 (neg.f64 lambda2) #s(literal 1 binary64)))
(+.f64 (neg.f64 lambda2) lambda1)
(+.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(+.f64 lambda1 (neg.f64 lambda2))
(*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #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 1/2 binary64))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(/.f64 (neg.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 (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal -2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 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 (neg.f64 phi1) phi2)) (cos.f64 (-.f64 (neg.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) phi2)) (cos.f64 (-.f64 (fabs.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 (fabs.f64 phi2))) (cos.f64 (-.f64 phi1 (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (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 (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 (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 (cos.f64 (-.f64 phi2 phi1)) (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 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(fma.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1)) (cos.f64 phi2)))
(fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) (/.f64 (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) #s(literal 2 binary64)))
(fma.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (/.f64 (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) #s(literal 2 binary64)))
(+.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1))))
(+.f64 (.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1)) (cos.f64 phi2)))
(+.f64 (/.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(+.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (/.f64 (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) #s(literal 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 #s(literal 1 binary64) (/.f64 (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)) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))))) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))))
(.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 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.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 (-.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 (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 (-.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 (.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 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 2 binary64)) (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 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 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))))))
(/.f64 (+.f64 (pow.f64 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (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)) #s(literal 3 binary64))) (fma.f64 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))) (-.f64 (.f64 (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)) (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 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (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 #s(literal -1/2 binary64) phi1))) #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 phi2 phi1))) #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))))))
(neg.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(fma.f64 (neg.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 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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))))
(fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1)))))
(fma.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 #s(literal -1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))
(fma.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (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 #s(literal -1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))))
(fma.f64 #s(literal 1/2 binary64) (neg.f64 (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))
(-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))) (neg.f64 (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) (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)))
(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 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1)))))
(+.f64 (.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 #s(literal -1/2 binary64) phi1)))) (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))
(+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (+.f64 (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 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))
(+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (pow.f64 (.f64 (neg.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 phi2 phi1)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(+.f64 (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)) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))))
(+.f64 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 2 binary64)))
(+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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 (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 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (cos.f64 (-.f64 phi2 phi1))) #s(literal 2 binary64))
(/.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 2 binary64))
(.f64 (+.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 (cos.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 binary64) (/.f64 (fma.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 #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 (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/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) #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 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #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 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 (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/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) #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 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)))))
(sin.f64 (+.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 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(fma.f64 (fabs.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fabs.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(fma.f64 (neg.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(fma.f64 (sin.f64 (-.f64 phi1 phi2)) (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 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (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)) (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)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi1) (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (cos.f64 phi1) (cos.f64 phi2) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(-.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) #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))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(-.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 phi2))))
(-.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 phi2)))
(cos.f64 (neg.f64 (fabs.f64 (-.f64 phi2 phi1))))
(cos.f64 (fabs.f64 (fabs.f64 (-.f64 phi2 phi1))))
(cos.f64 (-.f64 phi2 phi1))
(cos.f64 (fabs.f64 (-.f64 phi2 phi1)))
(cos.f64 (-.f64 phi1 phi2))
(+.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(+.f64 (.f64 (sin.f64 (-.f64 phi1 phi2)) (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 #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) #s(literal -1/2 binary64)))
(+.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(+.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 phi2) phi1)) phi1)
(.f64 (.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)) #s(literal 1/2 binary64))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1)
(.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))
(*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(.f64 #s(literal 1/2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 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 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 phi1 phi1) (.f64 (neg.f64 phi2) (neg.f64 phi2))) (+.f64 phi2 phi1))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (-.f64 (.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/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 (neg.f64 phi2) (neg.f64 phi2)) (.f64 phi1 (neg.f64 phi2)))))
(/.f64 (+.f64 (-.f64 phi2 phi1) (-.f64 phi2 phi1)) #s(literal -2 binary64))
(/.f64 (+.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) #s(literal 2 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 (*.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)) #s(literal -2 binary64))
(/.f64 (fma.f64 (-.f64 phi1 phi2) #s(literal -2 binary64) (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))) #s(literal -4 binary64))
(/.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1)) #s(literal -2 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 phi1 phi2)) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 phi1 phi1) (.f64 phi2 phi2)) (+.f64 phi2 phi1))
(/.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))
(fma.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(fma.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 1 binary64) (.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(fma.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 #s(literal 1 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(fma.f64 #s(literal 1 binary64) phi1 (*.f64 #s(literal 1 binary64) (neg.f64 phi2)))
(fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(fma.f64 phi1 #s(literal 1 binary64) (*.f64 (neg.f64 phi2) #s(literal 1 binary64)))
(-.f64 (fma.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64) (.f64 #s(literal 1/2 binary64) phi1)) (.f64 phi2 #s(literal 1/2 binary64)))
(-.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64)))
(-.f64 (.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/2 binary64)) (neg.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(-.f64 (.f64 #s(literal 1/2 binary64) phi1) (-.f64 (.f64 phi2 #s(literal 1/2 binary64)) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(-.f64 phi1 (neg.f64 (neg.f64 phi2)))
(-.f64 phi1 phi2)
(+.f64 (.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) phi1) (.f64 #s(literal 1 binary64) (neg.f64 phi2)))
(+.f64 (.f64 #s(literal 1 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 #s(literal 1 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(+.f64 (.f64 phi1 #s(literal 1 binary64)) (.f64 (neg.f64 phi2) #s(literal 1 binary64)))
(+.f64 (neg.f64 phi2) phi1)
(+.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(+.f64 phi1 (neg.f64 phi2))
(.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 (-.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 (.f64 #s(literal 1/2 binary64) phi1) #s(literal 2 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 phi2 #s(literal 1/2 binary64)) (.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(/.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) (fma.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 (.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 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))
(neg.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64)))
(neg.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))
(neg.f64 (*.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64)))
(neg.f64 (-.f64 (.f64 phi2 #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) phi1)))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal -1/2 binary64) phi2))
(fma.f64 phi1 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) phi2))
(-.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 phi2 #s(literal 1/2 binary64)))
(+.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal -1/2 binary64) phi2))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 phi2) phi1)) phi1)
(.f64 (.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)) #s(literal 1/2 binary64))
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1)
(.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))
(*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(.f64 #s(literal 1/2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 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 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 phi1 phi1) (.f64 (neg.f64 phi2) (neg.f64 phi2))) (+.f64 phi2 phi1))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (-.f64 (.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/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 (neg.f64 phi2) (neg.f64 phi2)) (.f64 phi1 (neg.f64 phi2)))))
(/.f64 (+.f64 (-.f64 phi2 phi1) (-.f64 phi2 phi1)) #s(literal -2 binary64))
(/.f64 (+.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) #s(literal 2 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 (*.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)) #s(literal -2 binary64))
(/.f64 (fma.f64 (-.f64 phi1 phi2) #s(literal -2 binary64) (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))) #s(literal -4 binary64))
(/.f64 (*.f64 #s(literal 2 binary64) (-.f64 phi2 phi1)) #s(literal -2 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 phi1 phi2)) #s(literal 2 binary64))
(/.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 phi1 phi1) (.f64 phi2 phi2)) (+.f64 phi2 phi1))
(/.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))
(fma.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(fma.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 1 binary64) (.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(fma.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 #s(literal 1 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(fma.f64 #s(literal 1 binary64) phi1 (*.f64 #s(literal 1 binary64) (neg.f64 phi2)))
(fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(fma.f64 phi1 #s(literal 1 binary64) (*.f64 (neg.f64 phi2) #s(literal 1 binary64)))
(-.f64 (fma.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64) (.f64 #s(literal 1/2 binary64) phi1)) (.f64 phi2 #s(literal 1/2 binary64)))
(-.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64)))
(-.f64 (.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/2 binary64)) (neg.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(-.f64 (.f64 #s(literal 1/2 binary64) phi1) (-.f64 (.f64 phi2 #s(literal 1/2 binary64)) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(-.f64 phi1 (neg.f64 (neg.f64 phi2)))
(-.f64 phi1 phi2)
(+.f64 (.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 1 binary64)) (.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) phi1) (.f64 #s(literal 1 binary64) (neg.f64 phi2)))
(+.f64 (.f64 #s(literal 1 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 #s(literal 1 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(+.f64 (.f64 phi1 #s(literal 1 binary64)) (.f64 (neg.f64 phi2) #s(literal 1 binary64)))
(+.f64 (neg.f64 phi2) phi1)
(+.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(+.f64 phi1 (neg.f64 phi2))
(.f64 (pow.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64))
(sin.f64 (acos.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (.f64 (sqrt.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(cos.f64 (asin.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (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 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (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 #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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 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)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #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))))) (-.f64 #s(literal 1 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)))))
(/.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (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 #s(literal 1 binary64) #s(literal 1 binary64) (-.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)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #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)))) (.f64 #s(literal 1 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)))))))
(/.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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1 binary64) #s(literal 1 binary64) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (.f64 (fma.f64 #s(literal -1/2 binary64) (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)))))
(neg.f64 (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (fabs.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fabs.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #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 (neg.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #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 (neg.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (.f64 (-.f64 phi1 phi2) #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 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (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 (-.f64 #s(literal 1 binary64) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1/2 binary64) (.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)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) #s(literal 1 binary64))
(+.f64 #s(literal 1 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))))
(.f64 (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))) (-.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (-.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(fma.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(-.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (neg.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(.f64 (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (sqrt.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)) (pow.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)))
(pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (.f64 (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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) #s(literal 2 binary64))))
(.f64 (neg.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)) (pow.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (pow.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (pow.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) #s(literal 2 binary64))))
(.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)))))
(pow.f64 (.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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))
(pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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))
(pow.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (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 (-.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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 #s(literal -1/2 binary64) (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)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))) (+.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #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 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (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 (-.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)) (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 (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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 #s(literal -1/2 binary64) (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)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (-.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 #s(literal -1/2 binary64) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 #s(literal -1/2 binary64) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)))
(neg.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 (.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)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #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 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.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)))))
(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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.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)))))
(fma.f64 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (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 (cos.f64 phi1)) (.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)))))
(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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (.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))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(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)) (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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(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)))) (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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (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 (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(-.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)))))
(sqrt.f64 (.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)))
(exp.f64 (.f64 (log.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 2 binary64)))
(+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (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 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 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 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.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 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (+.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 #s(literal 1 binary64) (/.f64 (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)) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))))) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))))
(.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 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.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 (-.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 (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 (-.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 (.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 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 2 binary64)) (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 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 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))))))
(/.f64 (+.f64 (pow.f64 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (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)) #s(literal 3 binary64))) (fma.f64 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))) (-.f64 (.f64 (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)) (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 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (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 #s(literal -1/2 binary64) phi1))) #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 phi2 phi1))) #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))))))
(neg.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(fma.f64 (neg.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 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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))))
(fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1)))))
(fma.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 #s(literal -1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))
(fma.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (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 #s(literal -1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))))
(fma.f64 #s(literal 1/2 binary64) (neg.f64 (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))
(-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))) (neg.f64 (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) (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)))
(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 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1)))))
(+.f64 (.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 #s(literal -1/2 binary64) phi1)))) (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))
(+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (+.f64 (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 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))
(+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (pow.f64 (.f64 (neg.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 phi2 phi1)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(+.f64 (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)) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))))
(+.f64 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 2 binary64)))
(+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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 (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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.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 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(/.f64 (fma.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 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (-.f64 (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)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (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 #s(literal -1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (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 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (fma.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))))))
(neg.f64 (-.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))
(sin.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) phi1)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(fma.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) (.f64 (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(fma.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) (neg.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))
(fma.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) (.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 #s(literal -1/2 binary64) phi2)) (.f64 (neg.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 #s(literal -1/2 binary64) phi2)) (neg.f64 (.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 #s(literal -1/2 binary64) phi2)) (.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) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (neg.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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (.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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))))
(-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(-.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(-.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (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))) (neg.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (neg.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(.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 (-.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 (.f64 #s(literal 1/2 binary64) phi1) #s(literal 2 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 phi2 #s(literal 1/2 binary64)) (.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))
(/.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) (fma.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 (.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 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))
(neg.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64)))
(neg.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))
(neg.f64 (*.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64)))
(neg.f64 (-.f64 (.f64 phi2 #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) phi1)))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal -1/2 binary64) phi2))
(fma.f64 phi1 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) phi2))
(-.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 phi2 #s(literal 1/2 binary64)))
(+.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal -1/2 binary64) phi2))
(.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))
(.f64 (cos.f64 phi2) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi2)))
(/.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (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 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(/.f64 (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 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))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))
(+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.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 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (+.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 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #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 1/2 binary64))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(/.f64 (neg.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 (neg.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))) #s(literal -2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 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 (neg.f64 phi1) phi2)) (cos.f64 (-.f64 (neg.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) phi2)) (cos.f64 (-.f64 (fabs.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 (fabs.f64 phi2))) (cos.f64 (-.f64 phi1 (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (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 (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 (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 (cos.f64 (-.f64 phi2 phi1)) (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 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1)))))
(fma.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1)) (cos.f64 phi2)))
(fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) (/.f64 (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) #s(literal 2 binary64)))
(fma.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) (/.f64 (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) #s(literal 2 binary64)))
(+.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1))))
(+.f64 (.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1)) (cos.f64 phi2)))
(+.f64 (/.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(+.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (/.f64 (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2)) #s(literal 2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1))) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1)))) (-.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1))) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1))))))
(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 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1)))
(fma.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)))
(fma.f64 (sin.f64 phi1) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)))
(fma.f64 (cos.f64 phi1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1)))
(-.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (neg.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 phi1)))
(-.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (neg.f64 (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1))))
(-.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (neg.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 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1)) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)))
(+.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) phi1)
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 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 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(/.f64 (fma.f64 phi1 #s(literal 2 binary64) (PI.f64)) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 phi1 phi1) (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (-.f64 phi1 (*.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 phi1) (neg.f64 phi1))) (fma.f64 (PI.f64) #s(literal 1/2 binary64) (neg.f64 phi1)))
(/.f64 (+.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 phi1 phi1 (-.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 phi1 (.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 (neg.f64 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 (neg.f64 phi1) (neg.f64 phi1) (.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 phi1)))))
(/.f64 (-.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 phi1 phi1)) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))
(/.f64 (+.f64 (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 phi1 #s(literal 3 binary64))) (fma.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64)) (-.f64 (.f64 phi1 phi1) (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))))
(neg.f64 (-.f64 (neg.f64 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)) (neg.f64 (neg.f64 phi1)))
(fma.f64 (.f64 #s(literal 1/2 binary64) (cbrt.f64 (.f64 (PI.f64) (PI.f64)))) (cbrt.f64 (PI.f64)) phi1)
(fma.f64 (cbrt.f64 (.f64 (PI.f64) (PI.f64))) (.f64 (cbrt.f64 (PI.f64)) #s(literal 1/2 binary64)) (neg.f64 (neg.f64 phi1)))
(fma.f64 (cbrt.f64 (.f64 (PI.f64) (PI.f64))) (.f64 (cbrt.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 2 binary64)) (neg.f64 (neg.f64 phi1)))
(fma.f64 (cbrt.f64 (*.f64 (PI.f64) (PI.f64))) (/.f64 (cbrt.f64 (PI.f64)) #s(literal 2 binary64)) phi1)
(fma.f64 (PI.f64) #s(literal 1/2 binary64) (neg.f64 (neg.f64 phi1)))
(fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)
(fma.f64 #s(literal 1/2 binary64) (PI.f64) (neg.f64 (neg.f64 phi1)))
(fma.f64 #s(literal 1/2 binary64) (PI.f64) phi1)
(-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 phi1))
(-.f64 phi1 (*.f64 (neg.f64 (PI.f64)) #s(literal 1/2 binary64)))
(-.f64 phi1 (*.f64 #s(literal -1/2 binary64) (PI.f64)))
(-.f64 phi1 (neg.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 (neg.f64 phi1)))
(+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)
(+.f64 phi1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(PI.f64)
(.f64 (pow.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64))
(sin.f64 (acos.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (.f64 (sqrt.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(cos.f64 (asin.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (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 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (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 #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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 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)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #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))))) (-.f64 #s(literal 1 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)))))
(/.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (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 #s(literal 1 binary64) #s(literal 1 binary64) (-.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)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #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)))) (.f64 #s(literal 1 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)))))))
(/.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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1 binary64) #s(literal 1 binary64) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (.f64 (fma.f64 #s(literal -1/2 binary64) (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)))))
(neg.f64 (neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(fma.f64 (fabs.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fabs.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #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 (neg.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #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 (neg.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (.f64 (-.f64 phi1 phi2) #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 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (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 (-.f64 #s(literal 1 binary64) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal 1/2 binary64) (.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)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) #s(literal 1 binary64))
(+.f64 #s(literal 1 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))))
(.f64 (.f64 R (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (sqrt.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)) (pow.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)))
(pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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 (.f64 (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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) #s(literal 2 binary64))))
(.f64 (neg.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)) (pow.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (pow.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (pow.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) #s(literal 2 binary64))))
(.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)))))
(pow.f64 (.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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))
(pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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))
(pow.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (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 (-.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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 #s(literal -1/2 binary64) (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)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))) (+.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #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 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (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 (-.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)) (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 (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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 #s(literal -1/2 binary64) (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)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (-.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 #s(literal -1/2 binary64) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 #s(literal -1/2 binary64) (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)))
(neg.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 (.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)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #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 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.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)))))
(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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.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)))))
(fma.f64 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (*.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (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 (cos.f64 phi1)) (.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)))))
(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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (.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))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(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)) (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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi1)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(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)))) (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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)))
(-.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (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 (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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(-.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)))))
(sqrt.f64 (.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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)))
(exp.f64 (.f64 (log.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (fma.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 2 binary64)))
(+.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (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 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 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 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.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 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (pow.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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)))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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 #s(literal 1 binary64) (/.f64 (-.f64 (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))) #s(literal 1 binary64))) #s(literal 1 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 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.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) lambda2))))) (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) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (-.f64 (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1))))) (-.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (-.f64 (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (fma.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))) (fma.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.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) lambda2))))) (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 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.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) lambda2))))) (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 #s(literal 1 binary64) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 3 binary64)) (pow.f64 (-.f64 (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (-.f64 (.f64 (-.f64 (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (-.f64 (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (fma.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) (-.f64 (.f64 (fma.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))) (fma.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1))))) (.f64 #s(literal 1 binary64) (fma.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1))))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.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) lambda2))))) (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 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))) (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.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) lambda2))))) (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 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.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) lambda2))))) (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 #s(literal 1 binary64) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (fma.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) lambda2))))) (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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (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 #s(literal 1 binary64) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (fma.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) lambda2))))) (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 #s(literal 1 binary64) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 3 binary64)) (pow.f64 (fma.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) lambda2))))) (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 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (fma.f64 (fma.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) lambda2))))) (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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (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 #s(literal 1 binary64) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (fma.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) lambda2))))) (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 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1))))))
(neg.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 #s(literal -1/2 binary64) lambda2)))))) (cos.f64 phi2) (-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))
(fma.f64 (.f64 (neg.f64 lambda1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (cos.f64 phi1) (+.f64 #s(literal 1 binary64) (-.f64 (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 (.f64 (neg.f64 lambda1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (cos.f64 phi1) (-.f64 #s(literal 1 binary64) (fma.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) lambda2))))) (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 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (+.f64 #s(literal 1 binary64) (-.f64 (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 #s(literal 1 binary64) (fma.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) lambda2))))) (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 (neg.f64 lambda1) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (+.f64 #s(literal 1 binary64) (-.f64 (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 (.f64 (neg.f64 lambda1) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 #s(literal 1 binary64) (fma.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) lambda2))))) (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 #s(literal -1 binary64) (.f64 lambda1 (cos.f64 phi1))) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (+.f64 #s(literal 1 binary64) (-.f64 (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (cos.f64 phi1))) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 #s(literal 1 binary64) (fma.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) lambda2))))) (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 #s(literal -1 binary64) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) lambda1 (+.f64 #s(literal 1 binary64) (-.f64 (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 (.f64 #s(literal -1 binary64) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) lambda1 (-.f64 #s(literal 1 binary64) (fma.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) lambda2))))) (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 (neg.f64 (.f64 lambda1 (cos.f64 phi1))) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (+.f64 #s(literal 1 binary64) (-.f64 (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 (neg.f64 (.f64 lambda1 (cos.f64 phi1))) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 #s(literal 1 binary64) (fma.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) lambda2))))) (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 (neg.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) lambda1 (+.f64 #s(literal 1 binary64) (-.f64 (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 (neg.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) lambda1 (-.f64 #s(literal 1 binary64) (fma.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) lambda2))))) (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 (neg.f64 lambda1) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (+.f64 #s(literal 1 binary64) (-.f64 (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 (neg.f64 lambda1) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (-.f64 #s(literal 1 binary64) (fma.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) lambda2))))) (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 lambda1 (cos.f64 phi1)) (.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (-.f64 (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (fma.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) lambda2))))) (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 lambda1 (cos.f64 phi1)) (neg.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (+.f64 #s(literal 1 binary64) (-.f64 (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 (.f64 lambda1 (cos.f64 phi1)) (neg.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (-.f64 #s(literal 1 binary64) (fma.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) lambda2))))) (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 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1 binary64) (+.f64 #s(literal 1 binary64) (-.f64 (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1 binary64) (-.f64 #s(literal 1 binary64) (fma.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) lambda2))))) (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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (neg.f64 lambda1) (+.f64 #s(literal 1 binary64) (-.f64 (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (neg.f64 lambda1) (-.f64 #s(literal 1 binary64) (fma.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) lambda2))))) (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 #s(literal -1 binary64) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (+.f64 #s(literal 1 binary64) (-.f64 (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 #s(literal -1 binary64) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (-.f64 #s(literal 1 binary64) (fma.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) lambda2))))) (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 lambda1 (.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (-.f64 (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 lambda1 (.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (fma.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) lambda2))))) (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 lambda1 (neg.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (+.f64 #s(literal 1 binary64) (-.f64 (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 lambda1 (neg.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (-.f64 #s(literal 1 binary64) (fma.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) lambda2))))) (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 #s(literal 1 binary64) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))
(-.f64 (-.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)))
(-.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.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) lambda2))))) (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 #s(literal 1 binary64) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (fma.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) lambda2))))) (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) (-.f64 (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (-.f64 (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))))
(-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.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) lambda2))))) (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) (neg.f64 (fma.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1))))))
(+.f64 (-.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(+.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.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) lambda2))))) (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 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))) #s(literal 1 binary64))
(+.f64 (-.f64 (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))
(+.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (-.f64 (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1))))
(+.f64 (.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (+.f64 #s(literal 1 binary64) (-.f64 (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))))
(+.f64 (.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (-.f64 #s(literal 1 binary64) (fma.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) lambda2))))) (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) (fma.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (-.f64 (fma.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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))) (.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 1 binary64))) #s(literal 1 binary64))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 1 binary64))) #s(literal 1 binary64))
(/.f64 (fma.f64 (.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64) #s(literal 2 binary64)) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (.f64 #s(literal 1 binary64) #s(literal 1 binary64))) (-.f64 (.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.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 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.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 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.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 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 3 binary64))) (fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) (fma.f64 (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.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 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (.f64 #s(literal 1 binary64) (.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))))))
(neg.f64 (fma.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal -1 binary64)))
(neg.f64 (+.f64 #s(literal -1 binary64) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))
(neg.f64 (-.f64 (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 1 binary64)))
(fma.f64 (.f64 (neg.f64 lambda1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))) (cos.f64 phi1) #s(literal 1 binary64))
(fma.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(fma.f64 (.f64 (neg.f64 lambda1) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(fma.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (cos.f64 phi1))) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(fma.f64 (.f64 #s(literal -1 binary64) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) lambda1 #s(literal 1 binary64))
(fma.f64 (neg.f64 (.f64 lambda1 (cos.f64 phi1))) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(fma.f64 (neg.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))) lambda1 #s(literal 1 binary64))
(fma.f64 (neg.f64 lambda1) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 1 binary64))
(fma.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 lambda1 (cos.f64 phi1)) (neg.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1 binary64) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) (neg.f64 lambda1) #s(literal 1 binary64))
(fma.f64 #s(literal -1 binary64) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 1 binary64))
(fma.f64 lambda1 (.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1 binary64)) #s(literal 1 binary64))
(fma.f64 lambda1 (neg.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 1 binary64))
(-.f64 (.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal -1 binary64))
(-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))
(+.f64 (.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))
(.f64 (.f64 (neg.f64 lambda1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (cos.f64 phi1))
(.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))
(.f64 (.f64 (neg.f64 lambda1) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))
(.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (cos.f64 phi1))) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))
(.f64 (.f64 #s(literal -1 binary64) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))) lambda1)
(.f64 (neg.f64 (.f64 lambda1 (cos.f64 phi1))) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))
(.f64 (neg.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) lambda1)
(.f64 (neg.f64 lambda1) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))
(.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal -1 binary64)))
(.f64 (.f64 lambda1 (cos.f64 phi1)) (neg.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))
(.f64 (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1 binary64))
(.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (neg.f64 lambda1))
(.f64 #s(literal -1 binary64) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))
(.f64 lambda1 (.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal -1 binary64)))
(.f64 lambda1 (neg.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))
(neg.f64 (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))
#s(literal -1 binary64)
(.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))
(.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (cos.f64 phi2))
(.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))
(.f64 (.f64 lambda1 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (cos.f64 phi1))
(.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))
(.f64 (.f64 #s(literal 1 binary64) (.f64 lambda1 (cos.f64 phi1))) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))
(.f64 (.f64 #s(literal 1 binary64) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))) lambda1)
(.f64 (.f64 #s(literal 1 binary64) lambda1) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))
(.f64 (neg.f64 (neg.f64 lambda1)) (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))
(.f64 (neg.f64 lambda1) (neg.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))
(.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))
(.f64 (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 1 binary64))
(.f64 (.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal -1 binary64))
(.f64 (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) lambda1)
(.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 lambda1 (cos.f64 phi1)))
(.f64 #s(literal -1 binary64) (.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))))
(.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))
(.f64 lambda1 (.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) lambda1))
(.f64 (cos.f64 phi1) (.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) lambda1))
(.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 lambda1 (cos.f64 phi1)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 2 binary64))
(neg.f64 (.f64 (.f64 (neg.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))
(.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
(.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
(.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))) (cos.f64 phi2))
(.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 phi1)))
(.f64 (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (cos.f64 phi1))
(.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))
(.f64 (cos.f64 phi2) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))) (cos.f64 phi1)))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))))
(.f64 (cos.f64 phi1) (.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))
(/.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))
(.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))
(.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (cos.f64 phi2))
(.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 phi2)))
(.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 phi2)))
(.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))
(.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal -1/2 binary64) lambda2) (fma.f64 #s(literal -1/2 binary64) lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) lambda2 (fma.f64 #s(literal -1/2 binary64) lambda2 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) lambda2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal -1/2 binary64) lambda2 (*.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal -1/2 binary64) lambda2 (*.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (fma.f64 #s(literal -1/2 binary64) lambda2 (*.f64 #s(literal -1/2 binary64) lambda2)))) #s(literal 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 #s(literal -1/2 binary64) lambda2 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (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 lambda2 #s(literal 1/2 binary64)))
(cos.f64 (*.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64)))
(cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (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 #s(literal -1/2 binary64) lambda2)
(*.f64 lambda2 #s(literal -1/2 binary64))
(neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))
#s(literal -1/2 binary64)
(sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))
(.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 #s(literal -1/2 binary64) lambda2))))) (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 (.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) lambda2))))) (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) lambda2))))) (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 (.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) lambda2))))) (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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))
(/.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 (.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) lambda2))))) (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) lambda2))))) (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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) lambda2))))) (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 #s(literal -1/2 binary64) lambda2))))) (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) lambda2))))) (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 (.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) lambda2))))) (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 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #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 #s(literal -1/2 binary64) lambda2))))) (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 (.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) lambda2))))) (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) lambda2))))) (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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (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 #s(literal -1/2 binary64) lambda2))))) (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 (.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) lambda2))))) (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) lambda2))))) (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 (.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) lambda2))))) (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 (.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) lambda2))))) (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) lambda2))))) (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 (.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) lambda2))))) (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 (.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) lambda2))))) (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 (.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) lambda2))))) (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) lambda2))))) (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 (.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) lambda2))))) (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 (.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1))))
(fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(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 #s(literal -1/2 binary64) lambda2)))))) (cos.f64 phi2) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #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 (.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.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 #s(literal -1/2 binary64) lambda2))))) (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 #s(literal -1/2 binary64) lambda2))))) (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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (.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 (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 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 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 #s(literal -1/2 binary64) lambda2))))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(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 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi1)) (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) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2)))))) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(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 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(-.f64 (fma.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) lambda2))))) (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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) lambda2))))) (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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) lambda2))))) (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))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) lambda2)))))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.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 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2))))
(-.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (neg.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) lambda2))))) (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 (.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1))))
(+.f64 (fma.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) lambda2))))) (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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) lambda2))))) (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 (.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1)))
(+.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (-.f64 phi2 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 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1))))
(.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))
(.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) lambda2))))) (cos.f64 phi2))
(.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (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 #s(literal -1/2 binary64) lambda2))))))
(.f64 (fabs.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (fabs.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))
(.f64 (neg.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (neg.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))
(.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
(.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(.f64 (sin.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))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) lambda2 (*.f64 #s(literal -1/2 binary64) 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 #s(literal -1/2 binary64) lambda2)))))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 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 #s(literal 1 binary64) (/.f64 (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)) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))))) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))))
(.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 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.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 (-.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 (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 (-.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 (.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 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 2 binary64)) (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 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 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))))))
(/.f64 (+.f64 (pow.f64 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (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)) #s(literal 3 binary64))) (fma.f64 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))) (-.f64 (.f64 (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)) (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 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (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 #s(literal -1/2 binary64) phi1))) #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 phi2 phi1))) #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))))))
(neg.f64 (fma.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(fma.f64 (neg.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 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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))))
(fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1)))))
(fma.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 #s(literal -1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))
(fma.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (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 #s(literal -1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))))
(fma.f64 #s(literal 1/2 binary64) (neg.f64 (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))
(-.f64 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))) (neg.f64 (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) (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)))
(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 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1)))))
(+.f64 (.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 #s(literal -1/2 binary64) phi1)))) (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))
(+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (+.f64 (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 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))
(+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (pow.f64 (.f64 (neg.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 phi2 phi1)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(+.f64 (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)) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))))
(+.f64 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 2 binary64)))
(+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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 (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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.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 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(/.f64 (fma.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 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (-.f64 (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)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (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 #s(literal -1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (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 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (fma.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))))))
(neg.f64 (-.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))
(sin.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) phi1)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(fma.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) (.f64 (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(fma.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) (neg.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))
(fma.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) (.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 #s(literal -1/2 binary64) phi2)) (.f64 (neg.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 #s(literal -1/2 binary64) phi2)) (neg.f64 (.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 #s(literal -1/2 binary64) phi2)) (.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) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (neg.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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (.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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))))
(-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(-.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(-.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (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))) (neg.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (neg.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))

eval790.0ms (2.1%)

Memory: 13.5MiB live, 1 766.9MiB allocated; 247ms collecting garbage
Compiler: Compiled 303 321 to 23 376 computations (92.3% saved)

prune527.0ms (1.4%)

Memory

26.6MiB live, 1 079.6MiB allocated; 76ms collecting garbage

Pruning

124 alts after pruning (124 fresh and 0 done)

	Pruned	Kept	Total
New	2 272	106	2 378
Fresh	46	18	64
Picked	5	0	5
Done	0	0	0
Total	2 323	124	2 447

Accuracy

98.8%

Counts

2 447 → 124

Alt Table

Click to see full alt table

Status	Accuracy	Program
	60.3%	(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	44.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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))))) (.f64 #s(literal 2 binary64) R))
	44.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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	60.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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))))))))
	61.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.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))))))))))
	60.3%	(.f64 R (.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 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) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	29.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64)))))))
	29.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64)))))))
	49.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64)))))))
	45.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(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 phi1 phi2)))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(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 phi1 phi2)))))))) #s(literal 2 binary64)))))))
	26.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 1/2 binary64) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 1/2 binary64) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))) #s(literal 2 binary64)))))))
	59.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/2 binary64) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/2 binary64) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))) #s(literal 2 binary64)))))))
	74.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))) #s(literal 2 binary64)))))))
	60.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 #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) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 #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) #s(literal 1/2 binary64))))))) #s(literal 2 binary64)))))))
	60.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 phi2))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 phi2))))))) #s(literal 2 binary64)))))))
	23.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64)))))))
	24.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) #s(literal 2 binary64)))))))
	50.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1)))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1)))))) #s(literal 2 binary64)))))))
	43.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))) (sqrt.f64 #s(approx (- 1 (pow (sqrt (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))))
	46.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))) (sqrt.f64 #s(approx (- 1 (pow (sqrt (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))))
	48.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* 1/2 (- phi1 phi2))) (.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64))))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64))))))))) #s(literal 2 binary64)))))))
	38.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- phi1 phi2)))) (cos.f64 (neg.f64 phi2))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- phi1 phi2)))) (cos.f64 (neg.f64 phi2))))))) #s(literal 2 binary64)))))))
	42.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))) #s(literal 2 binary64)))))))
	35.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64)))))))
	35.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64)))))))
▶	37.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64)))))))
	36.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2))))) (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)))))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2))))) (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)))))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64)))))))
	36.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2))))) (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))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2))))) (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))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64)))))))
	37.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2))))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2))))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64)))))))
	35.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/12 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 #s(approx (- 1/2 ( 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/12 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64)))))))
	34.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))) #s(literal 2 binary64)))))))
▶	37.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.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 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.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 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 2 binary64)))))))
	41.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))) #s(literal 2 binary64)))))))
	44.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) #s(literal 2 binary64)))))))
	43.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 2 binary64)))))))
	34.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 #s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 phi1 (sin.f64 (neg.f64 phi2))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 #s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 phi1 (sin.f64 (neg.f64 phi2))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))))))) #s(literal 2 binary64)))))))
	60.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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))))))))
	76.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (fma.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (fma.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (cos.f64 phi2)) (cos.f64 phi1) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 2 binary64))))))))
	79.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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 (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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))))))))))
	65.0%	(.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 phi2 #s(literal 1/2 binary64))) (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) phi1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (neg.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 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) phi1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (neg.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))))))))))
	61.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal 1/2 binary64) (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 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal 1/2 binary64) (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))))))))))
	46.6%	(.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (/.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) (fma.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 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (/.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 2 binary64))))))))
	76.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (fma.f64 #s(literal -1/2 binary64) (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 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
	47.1%	(.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (.f64 (/.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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (.f64 (/.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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	60.8%	(.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/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 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/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))))))))))
	60.9%	(.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/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 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
▶	98.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/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 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/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))))))))))))
	65.9%	(.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.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 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
	48.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.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 #s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))))))
	51.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.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 #s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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)))))))))
	61.1%	(.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.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 #s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))))
	74.6%	(.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/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 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/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)))))))))))
	55.5%	(.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #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 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 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #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 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
	59.3%	(.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #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 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #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))))))))))
	58.5%	(.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #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) (.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 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #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) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))))))))
	44.4%	(.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.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 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.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))))))))))
	76.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (+.f64 (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)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (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 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (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 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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.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 (-.f64 phi2 phi1)) (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 #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)) (/.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))) #s(literal 2 binary64))))))))
	42.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 (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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #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 (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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	39.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 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/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 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	39.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 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 (cos.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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (fma.f64 (cos.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))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	42.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 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.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))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #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 (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 (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)))) (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 (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)))) (cos.f64 phi2)) (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 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.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) lambda2)))))))) (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 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
	54.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) (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 (-.f64 #s(literal 1 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 (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))))))))))
	78.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)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (neg.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 (neg.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 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (neg.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 (neg.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))))))))))
	74.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 (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 (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 (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 (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 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #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 (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 (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 (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 (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 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #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 (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 (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 (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 (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 (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 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #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 (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 (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 (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 (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 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #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.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)) (-.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 (-.f64 #s(literal 1 binary64) (+.f64 (pow.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))))))))))))
	65.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 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))))))))
	65.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 (-.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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))))))
	65.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 (-.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 #s(literal 1/2 binary64) (-.f64 phi1 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 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
	36.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 #s(approx ( 1/2 (- phi1 phi2)) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))))
	32.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 #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 #s(approx ( 1/2 (- phi1 phi2)) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))))))))
	32.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))))) #s(approx (- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.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 phi2) (pow.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))))))))))
	35.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))))) #s(approx (- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
	60.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 #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)))))))))))
	26.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)) #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 #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)))))))))
	42.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))) (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 #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)))))))))
	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)) (.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))))))))))
	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 (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (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 ( (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
	49.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 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))))))))))
	37.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 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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)))))))))
	54.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) (pow.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))))))))))
	55.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.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 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.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))))))))))
	43.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #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))))))))))
	79.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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))))))))))
	79.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (pow.f64 (.f64 (neg.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (pow.f64 (.f64 (neg.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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	73.4%	(.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 #s(literal -1/2 binary64) phi1))) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))))) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) 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 (-.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 #s(literal -1/2 binary64) phi1))) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))))) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) 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))))))))))
	38.6%	(.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 (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 #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 (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))))))))))
	57.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ ( (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))))
	58.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ ( (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))))
	39.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
	44.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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	48.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 (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 #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 (.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 #s(literal 1/2 binary64) phi1))))))))))))
	32.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 (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)))))))))
	32.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 (+.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)))))))))
	46.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 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.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)))))))))
	44.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) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	48.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 (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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
	48.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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1))))))))))))
	31.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.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 (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)))))))))
	48.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))))) (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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1))))))))) #s(literal 1/2 binary64))))))
	48.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)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.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)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1))))))))))))
	25.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)) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (exp.f64 (.f64 (log.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 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))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (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)))))))))))
	40.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) #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)))))))))
	44.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) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.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) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.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) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/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) #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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(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) (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)))) (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 (sqrt.f64 #s(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)))))))))
	34.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) #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)))))))))
	44.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)))) (-.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) phi1))))) (.f64 (fma.f64 (cos.f64 (-.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)))) (-.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) phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))))
	28.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)))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.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)))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1))))))))))))
	41.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64)))))))
	44.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64)))))))
	47.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.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))))))))))
	48.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.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))))))))))
	32.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos 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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 (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))))))))))
	45.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.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))) (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 (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))))))))))
	32.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 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.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)))))))))
	48.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) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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))))))))))
	38.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)))))))))
▶	38.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))

Compiler

Compiled 26 898 to 11 030 computations (59.0% saved)

sample0.0ms (0.0%)

Memory

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

Calls

Call 1

Inputs
2
1/2
1
1/4
-1/2

Outputs
#s(literal 2 binary64)
#s(literal 1/2 binary64)
#s(literal 1 binary64)
#s(literal 1/4 binary64)
#s(literal -1/2 binary64)

Samples

0.0ms

1×

valid

Compiler

Compiled 7 to 7 computations (0.0% saved)

Precisions

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

adjust: 0.0ms (0.0% of total)

series686.0ms (1.8%)

Memory

34.5MiB live, 957.6MiB allocated; 218ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	4035	59873

Stop Event

1×	iter-limit

Counts

119 → 770

Calls

Call 1

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

Outputs
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))) (.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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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/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/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/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 #s(literal -1 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 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)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 #s(literal -1 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 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.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/8 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))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 #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)))))) (.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 #s(literal -1 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 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) (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 #s(literal -1 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 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.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/8 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) (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 #s(literal -1 binary64) (.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 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.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 phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.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)))))))))
#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 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.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 #s(literal 1/8 binary64) (.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)))) (.f64 #s(literal -1 binary64) (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 (.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))))
#s(approx (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2)))) (-.f64 (.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))))) (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 (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/48 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))
#s(approx (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (.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))) (.f64 lambda1 (fma.f64 #s(literal -1/48 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.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))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 #s(literal 1/3840 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))))
#s(approx (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (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)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 #s(literal 1/3840 binary64) (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))) (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 #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 (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.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))))))))) (sqrt.f64 (-.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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 #s(literal -1 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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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/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/8 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 #s(literal -1 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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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))) (sin.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 #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 (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))))
#s(approx (atan2 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)))) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (+.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (+.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 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)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (+.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 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 (neg.f64 lambda2))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 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)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 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 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)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))))))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (fma.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/12 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 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)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.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 (neg.f64 lambda2))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 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)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.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 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)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/12 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/12 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2))))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2))))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/4 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2))))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))))))
#s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos.f64 (neg.f64 lambda2)))
#s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))
#s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))
#s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))) (sin.f64 (neg.f64 lambda2))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
#s(approx (cos lambda1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (cos lambda1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos lambda1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (* lambda2 (sin lambda1)) (*.f64 lambda1 lambda2))
#s(approx (* lambda2 (sin lambda1)) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2)))))
#s(approx (* lambda2 (sin lambda1)) (.f64 lambda1 (+.f64 lambda2 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) lambda2 (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2)))))))
#s(approx (* lambda2 (sin lambda1)) (.f64 lambda1 (+.f64 lambda2 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) lambda2 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (*.f64 #s(literal 1/120 binary64) lambda2))))))))
#s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))
#s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 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)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (fma.f64 #s(literal -1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 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)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 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)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))))))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 lambda1 (fma.f64 #s(literal 1/12 binary64) (.f64 lambda1 (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64))
#s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2)))))))
#s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (+.f64 #s(literal 1/2 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2))))))))
#s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (+.f64 #s(literal 1/2 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 lambda1 (fma.f64 #s(literal 1/12 binary64) (.f64 lambda1 (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))))
#s(approx (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))))))
#s(approx (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2)))))))
#s(approx (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 lambda1 (fma.f64 #s(literal 1/12 binary64) (.f64 lambda1 (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))))
#s(approx (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 lambda1 (fma.f64 #s(literal -1/48 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/12 binary64) (.f64 lambda2 (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))))))
#s(approx (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (.f64 lambda1 (.f64 lambda2 (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))))))
#s(approx (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (.f64 lambda1 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))))))
#s(approx (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (.f64 lambda1 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal 1/120 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2)))))))))))
#s(approx (* (cos phi1) (* (cos phi2) (sin lambda1))) (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (* (cos phi1) (* (cos phi2) (sin lambda1))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (* (cos phi1) (* (cos phi2) (sin lambda1))) (.f64 lambda1 (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))))))
#s(approx (* (cos phi1) (* (cos phi2) (sin lambda1))) (.f64 lambda1 (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))))))
#s(approx (* (cos phi2) (sin lambda1)) (*.f64 lambda1 (cos.f64 phi2)))
#s(approx (* (cos phi2) (sin lambda1)) (.f64 lambda1 (+.f64 (cos.f64 phi2) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 phi2))))))
#s(approx (* (cos phi2) (sin lambda1)) (.f64 lambda1 (+.f64 (cos.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi2) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 phi2))))))))
#s(approx (* (cos phi2) (sin lambda1)) (.f64 lambda1 (+.f64 (cos.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 phi2)) (*.f64 #s(literal 1/120 binary64) (cos.f64 phi2)))))))))
#s(approx (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))) (.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) (- 1/2 (* 1/2 (cos lambda1))))) (.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) (- 1/2 (* 1/2 (cos lambda1))))) (.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) (- 1/2 (* 1/2 (cos lambda1))))) (.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) (- 1/2 (* 1/2 (cos lambda1)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 phi2))))
#s(approx (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))) (.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) (- 1/2 (* 1/2 (cos lambda1)))) (.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) (- 1/2 (* 1/2 (cos lambda1)))) (.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 (- 1/2 (* 1/2 (cos lambda1))) (*.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (- 1/2 (* 1/2 (cos lambda1))) (.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 (- 1/2 (* 1/2 (cos lambda1))) (.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 (- 1/2 (* 1/2 (cos lambda1))) (.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 (* 1/2 (cos lambda1)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (* 1/2 (cos lambda1)) (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/4 binary64)))))
#s(approx (* 1/2 (cos 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/48 binary64) (*.f64 #s(literal -1/1440 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1/4 binary64)))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))
#s(approx (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (.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 (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (cos lambda1) (cos.f64 lambda1))
#s(approx (* lambda2 (sin lambda1)) (*.f64 lambda2 (sin.f64 lambda1)))
#s(approx (sin lambda1) (sin.f64 lambda1))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (-.f64 (+.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 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (+.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 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))))
#s(approx (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))))
#s(approx (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (.f64 lambda2 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))))
#s(approx (* (cos phi1) (* (cos phi2) (sin lambda1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (cos phi2) (sin lambda1)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))
#s(approx (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))
#s(approx (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))
#s(approx (- 1/2 (* 1/2 (cos lambda1))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))
#s(approx (* 1/2 (cos lambda1)) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))
#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 (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))))
#s(approx (* 2 (atan2 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))))
#s(approx (atan2 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)))) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (-.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 (* 1/2 (- lambda1 lambda2))))) (.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 (* 1/2 (- lambda1 lambda2)))) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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) 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 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 (-.f64 (.f64 #s(literal -1/8 binary64) (.f64 lambda2 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 #s(literal 1/2 binary64) (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 (-.f64 (.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)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))
#s(approx (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))
#s(approx (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal 1/384 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))
#s(approx (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (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)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/384 binary64) (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 (* lambda2 1/2) (*.f64 #s(literal 1/2 binary64) lambda2))
#s(approx lambda2 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/48 binary64) (.f64 (pow.f64 lambda2 #s(literal 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(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 #s(literal 1/3840 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/48 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/645120 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/3840 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
#s(approx (sin (* lambda2 1/2)) (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (sin (* lambda2 1/2)) (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/3840 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/48 binary64))))))
#s(approx (sin (* lambda2 1/2)) (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/3840 binary64) (.f64 #s(literal -1/645120 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/48 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (sin (* 1/2 (- lambda1 lambda2))) (+.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 (* 1/2 (- lambda1 lambda2))) (+.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 (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 phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (+.f64 (sqrt.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (sqrt.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (+.f64 (sqrt.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sqrt.f64 (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 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/48 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/64 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (+.f64 (sqrt.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sqrt.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/1440 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal -1/48 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/64 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (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/48 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/64 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 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 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 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 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 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 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 (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 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (+.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (+.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.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 lambda1) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (+.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 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 lambda1)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.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 lambda1) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.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 lambda1) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))))))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 lambda2 (fma.f64 #s(literal 1/12 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.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 lambda1) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.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 lambda1)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.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 lambda1) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.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 lambda1) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 lambda2 (fma.f64 #s(literal 1/12 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (-.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 (* 1/2 (- lambda1 lambda2)))))) (-.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 (* 1/2 (- lambda1 lambda2)))))) (-.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 (* 1/2 (- lambda1 lambda2))))) (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 (* 1/2 (- lambda1 lambda2))))) (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 (* 1/2 (- lambda1 lambda2))))) (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 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (sin.f64 lambda1))))) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 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)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.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)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 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)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))))))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/12 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (+.f64 #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 lambda1)))))))
#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 (* (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 (+ (cos lambda1) (* lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))
#s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))))
#s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda2) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))) lambda2))) (*.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (-.f64 phi1 phi2)) lambda2)))))
#s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda2) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))) lambda2)))))
#s(approx (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))) lambda2))))
#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 (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))))
#s(approx (* 2 (atan2 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))))
#s(approx (atan2 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)))) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #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 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #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 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (-.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 (* 1/2 (- lambda1 lambda2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) lambda2) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))))))
#s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #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 lambda1)))))) lambda2) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))))))
#s(approx (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))) lambda2) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (neg.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 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (fma.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (neg.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 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (fma.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))
#s(approx (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (pow.f64 (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))
#s(approx (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (pow.f64 (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))
#s(approx (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))
#s(approx (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (neg.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 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))))))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))
#s(approx (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
#s(approx (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) (+.f64 (sin.f64 (neg.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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) (+.f64 (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (neg.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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) (+.f64 (sin.f64 (neg.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 (neg.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 (sin (* phi1 1/2)) (*.f64 #s(literal 1/2 binary64) phi1))
#s(approx (sin (* phi1 1/2)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
#s(approx (sin (* phi1 1/2)) (.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 (* phi1 1/2)) (.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 (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2)))) (+.f64 (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))
#s(approx (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2)))) (+.f64 (sin.f64 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/384 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))))
#s(approx (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2)))) (+.f64 (sin.f64 (neg.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 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 #s(literal 1/384 binary64) (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))))))))))
#s(approx (cos (* phi1 1/2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (cos (* phi1 1/2)) (+.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 (* phi1 1/2)) (+.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 phi2) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.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 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.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 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.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 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.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 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.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 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) 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 (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (neg.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 (neg.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (neg.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 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (neg.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 (neg.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (neg.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 (neg.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 phi1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (fma.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (fma.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (fma.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (pow phi1 2) (pow.f64 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 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt.f64 (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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (+.f64 (sqrt.f64 (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 #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) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (+.f64 (sqrt.f64 (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 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) 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) 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) 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) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (+.f64 (sqrt.f64 (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 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) 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) 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) 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) 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) 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) 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) 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) 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 (sin (* 1/2 (- phi1 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 (sin (* 1/2 (- phi1 phi2))) 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) 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 (sin (* 1/2 (- phi1 phi2))) 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) 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) 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 (sin (* 1/2 (- phi1 phi2))) 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) 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) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (pow (sin (* 1/2 (- phi1 phi2))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))
#s(approx (pow (sin (* 1/2 (- phi1 phi2))) 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 (* 1/2 (- phi1 phi2))) 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 (* 1/2 (- phi1 phi2))) 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 (* 1/2 (- phi1 phi2))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
#s(approx (sin (* 1/2 (- phi1 phi2))) (+.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 (* 1/2 (- phi1 phi2))) (+.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 (* 1/2 (- phi1 phi2))) (+.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 (* 1/2 (- phi1 phi2)) (*.f64 #s(literal -1/2 binary64) phi2))
#s(approx (* 1/2 (- phi1 phi2)) (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 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (+.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 phi1 (sin.f64 (neg.f64 phi2))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (+.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))) (.f64 phi1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (sin.f64 (neg.f64 phi2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (+.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))) (.f64 phi1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (sin.f64 (neg.f64 phi2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal 1/12 binary64) (sin.f64 (neg.f64 phi2)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi2)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi2)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi2)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))))))))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (sin.f64 (neg.f64 phi2)) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (sin.f64 (neg.f64 phi2)) (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal 1/12 binary64) (sin.f64 (neg.f64 phi2)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi2)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi2)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 phi1 (sin.f64 (neg.f64 phi2))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) (.f64 phi1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (sin.f64 (neg.f64 phi2)) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) (.f64 phi1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (sin.f64 (neg.f64 phi2)) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (fma.f64 #s(literal 1/12 binary64) (sin.f64 (neg.f64 phi2)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi2)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))))))))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/12 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2))))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi1 (cos.f64 (neg.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1/12 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2)))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)) (.f64 #s(literal -1/4 binary64) (*.f64 phi1 (cos.f64 (neg.f64 phi2))))))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/12 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2))))))))))
#s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 (neg.f64 phi2)))
#s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (+.f64 (cos.f64 (neg.f64 phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2))))))
#s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (+.f64 (cos.f64 (neg.f64 phi2)) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 (cos.f64 (neg.f64 phi2)))) (sin.f64 (neg.f64 phi2))))))
#s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (+.f64 (cos.f64 (neg.f64 phi2)) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2)))))) (sin.f64 (neg.f64 phi2))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 phi1 (sin.f64 (neg.f64 phi2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (neg.f64 phi2)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (neg.f64 phi2)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal 1/12 binary64) (sin.f64 (neg.f64 phi2)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi2)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi2)) (-.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi2)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))))))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal 1/2 binary64) (sin.f64 (neg.f64 phi2)))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal 1/12 binary64) (sin.f64 (neg.f64 phi2)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi2)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi2)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal 1/2 binary64) (sin.f64 (neg.f64 phi2)))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))
#s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))
#s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))
#s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))
#s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (fma.f64 #s(literal -1/12 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2))) (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))
#s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))))
#s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))))))))
#s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (fma.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))))))))))
#s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (fma.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (.f64 #s(literal 1/1440 binary64) (.f64 lambda2 (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))))))))))))))
#s(approx (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))
#s(approx (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))))))))
#s(approx (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (fma.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))))))))))
#s(approx (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (fma.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (.f64 #s(literal 1/1440 binary64) (.f64 lambda2 (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))))))))))))))
#s(approx (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 lambda2 (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))))
#s(approx (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 #s(literal 1/24 binary64) (.f64 lambda2 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))))))
#s(approx (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 lambda2 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal 1/24 binary64) (.f64 lambda2 (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))))))))
#s(approx (* (cos phi1) (* (cos phi2) (sin lambda1))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (cos phi1) (* (cos phi2) (sin lambda1))) (fma.f64 (cos.f64 phi2) (sin.f64 lambda1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))))))
#s(approx (* (cos phi1) (* (cos phi2) (sin lambda1))) (fma.f64 (cos.f64 phi2) (sin.f64 lambda1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 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 lambda1))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))))))))
#s(approx (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))
#s(approx (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))))))
#s(approx (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))))))))
#s(approx (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))
#s(approx (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))))
#s(approx (sin (* phi1 1/2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
#s(approx (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
#s(approx (cos (* phi1 1/2)) (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 (sin (* 1/2 (- phi1 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
#s(approx (* 1/2 (- phi1 phi2)) (.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 (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
#s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 (-.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 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 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64))))
#s(approx (pow (sin (* 1/2 (- phi1 phi2))) 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 (* 1/2 (- phi1 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))
#s(approx (* 1/2 (- phi1 phi2)) (.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 (* R (* 2 (atan2 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))))))) #s(literal 2 binary64))))))))
#s(approx (* 2 (atan2 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))) #s(literal 2 binary64)))))))
#s(approx (atan2 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)))) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))))))) #s(literal 2 binary64))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))))))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))))))) #s(literal 2 binary64)))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))))))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))
#s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))))))) #s(literal 2 binary64)))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))))))) #s(literal 2 binary64))))
#s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (-.f64 (+.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 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))))
#s(approx (* 1/2 (cos (- phi1 phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))))))
#s(approx (cos (- phi1 phi2)) (cos.f64 (neg.f64 (+.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 #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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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))))) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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))))) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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))))) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (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 (* phi2 1/2) (*.f64 #s(literal 1/2 binary64) phi2))
#s(approx phi2 phi2)
#s(approx (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2)))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
#s(approx (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal 1/48 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
#s(approx (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2)))) (.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/3840 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/48 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))))
#s(approx (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2)))) (.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/3840 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal 1/645120 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))))))
#s(approx (sin (neg (* phi2 1/2))) (.f64 phi2 (-.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (sin (neg (* phi2 1/2))) (.f64 phi2 (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/48 binary64) (*.f64 #s(literal -1/3840 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
#s(approx (sin (neg (* phi2 1/2))) (.f64 phi2 (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/48 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/645120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/3840 binary64))))) #s(literal 1/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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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)) (.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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)) (.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.f64 (cos.f64 phi1) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (cos.f64 phi1) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.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 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.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 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (cos.f64 phi1) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.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 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.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 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.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 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) 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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 #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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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) (/.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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(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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 #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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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) (/.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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(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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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(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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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) (/.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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(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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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))))))) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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))))))) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (sqrt (+ (pow (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 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt.f64 (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 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (+.f64 (sqrt.f64 (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)))) (.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) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (+.f64 (sqrt.f64 (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)))) (.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) 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) 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) 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) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (+.f64 (sqrt.f64 (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)))) (.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) 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) 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) 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) 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) 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) 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) 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) 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 (sin (* 1/2 (- phi1 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 (sin (* 1/2 (- phi1 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 (sin (* 1/2 (- phi1 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 (- phi1 phi2) (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (+.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 phi2 (sin.f64 phi1)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (+.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 phi1) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (+.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 phi1) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (.f64 #s(literal -1/12 binary64) (sin.f64 phi1))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))))))))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 phi1)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal -1/4 binary64) (cos.f64 phi1))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (.f64 #s(literal -1/12 binary64) (sin.f64 phi1))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))) (.f64 #s(literal -1/4 binary64) (cos.f64 phi1))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 phi2 (sin.f64 phi1)) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 phi1) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 phi1) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (.f64 #s(literal -1/12 binary64) (sin.f64 phi1)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))))))))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal -1/4 binary64) (cos.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/12 binary64) (.f64 phi2 (sin.f64 phi1)))) (.f64 #s(literal -1/4 binary64) (cos.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 phi1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi2 (cos.f64 phi1))) (.f64 #s(literal 1/2 binary64) (sin.f64 phi1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal 1/12 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 #s(literal -1/4 binary64) (cos.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (sin.f64 phi1))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (sin.f64 phi1)))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (.f64 phi2 (cos.f64 phi1)) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi1))))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi1) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal -1/12 binary64) (.f64 phi2 (sin.f64 phi1)))))))))
#s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))
#s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (cos.f64 phi1))) (.f64 #s(literal -1 binary64) (sin.f64 phi1))))))
#s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi1) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1))))) (*.f64 #s(literal -1 binary64) (sin.f64 phi1))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 phi2 (sin.f64 phi1)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))) (.f64 phi2 (fma.f64 #s(literal 1/4 binary64) (/.f64 (sin.f64 phi1) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))) (.f64 phi2 (fma.f64 #s(literal 1/4 binary64) (/.f64 (sin.f64 phi1) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (.f64 #s(literal -1/12 binary64) (sin.f64 phi1))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))))))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (sin.f64 phi1)))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 phi1)) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (.f64 #s(literal -1/12 binary64) (sin.f64 phi1))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))
#s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (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)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
#s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
#s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1))))) (.f64 #s(literal -1/4 binary64) (cos.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
#s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (fma.f64 #s(literal 1/12 binary64) (.f64 phi2 (sin.f64 phi1)) (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1)))))) (.f64 #s(literal -1/4 binary64) (cos.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
#s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (+.f64 #s(literal 1/2 binary64) (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 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (+.f64 #s(literal 1/2 binary64) (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))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (*.f64 (cos.f64 phi1) (sin.f64 lambda1))))))))))
#s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (+.f64 #s(literal 1/2 binary64) (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))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (fma.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 #s(literal 1/24 binary64) (.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 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (+.f64 #s(literal 1/2 binary64) (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))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (fma.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (.f64 #s(literal 1/1440 binary64) (.f64 lambda2 (*.f64 (cos.f64 phi1) (sin.f64 lambda1))))))))))))))))
#s(approx (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))))) (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 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))))) (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))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (*.f64 (cos.f64 phi1) (sin.f64 lambda1)))))))))
#s(approx (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))))) (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))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (fma.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))))))))))
#s(approx (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))))) (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))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (fma.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (.f64 #s(literal 1/1440 binary64) (.f64 lambda2 (*.f64 (cos.f64 phi1) (sin.f64 lambda1)))))))))))))))
#s(approx (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1))))
#s(approx (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 lambda1)))) (.f64 lambda2 (*.f64 (cos.f64 phi1) (sin.f64 lambda1)))))
#s(approx (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 #s(literal 1/24 binary64) (.f64 lambda2 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 lambda1)))))))))
#s(approx (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 lambda2 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 lambda1)))) (.f64 #s(literal 1/24 binary64) (.f64 lambda2 (*.f64 (cos.f64 phi1) (sin.f64 lambda1))))))))))
#s(approx (* (cos phi1) (* (cos phi2) (sin lambda1))) (*.f64 (cos.f64 phi1) (sin.f64 lambda1)))
#s(approx (* (cos phi1) (* (cos phi2) (sin lambda1))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (*.f64 (cos.f64 phi1) (sin.f64 lambda1))))
#s(approx (* (cos phi1) (* (cos phi2) (sin lambda1))) (fma.f64 (cos.f64 phi1) (sin.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (sin.f64 lambda1))))))))
#s(approx (* (cos phi1) (* (cos phi2) (sin lambda1))) (fma.f64 (cos.f64 phi1) (sin.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 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 lambda1))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 phi1) (sin.f64 lambda1)))))))))
#s(approx (* (cos phi2) (sin lambda1)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 lambda1)))))
#s(approx (* (cos phi2) (sin lambda1)) (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 lambda1)))))))
#s(approx (* (cos phi2) (sin lambda1)) (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.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 lambda1)) (.f64 #s(literal 1/24 binary64) (sin.f64 lambda1))))))))
#s(approx (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))
#s(approx (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))
#s(approx (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))))))
#s(approx (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))))))))
#s(approx (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))
#s(approx (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi2 #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 lambda1))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))
#s(approx (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi2 #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 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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (.f64 #s(literal 1/24 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))
#s(approx (cos (* phi2 1/2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
#s(approx (* 1/2 (- phi1 phi2)) (.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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64))))
#s(approx (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (pow.f64 (fma.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)))) #s(literal 2 binary64)))
#s(approx (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) (fma.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)))))
#s(approx (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #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 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 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64))))
#s(approx (pow (sin (* 1/2 (- phi1 phi2))) 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 (* 1/2 (- phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))
#s(approx (* 1/2 (- phi1 phi2)) (.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 (* R (* 2 (atan2 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))) #s(literal 2 binary64))))))))
#s(approx (* 2 (atan2 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) #s(literal 2 binary64)))))))
#s(approx (atan2 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)))) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))) #s(literal 2 binary64))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) #s(literal 2 binary64)))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2))))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))
#s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) #s(literal 2 binary64)))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) #s(literal 2 binary64))))
#s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (-.f64 (+.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 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2))))))

Calls

15 calls:

Time	Variable	Point
42.0ms	lambda1	-inf
31.0ms	lambda1	0
30.0ms	phi2	0
27.0ms	phi1	inf
23.0ms	phi2	-inf

rewrite412.0ms (1.1%)

Memory

22.1MiB live, 527.1MiB allocated; 150ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	149	3762
0	258	3225
1	1035	2882
0	4251	2829

Stop Event

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

Counts

119 → 1 217

Calls

Call 1

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

Outputs
(.f64 (.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 (atan2.f64 (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)))
(fma.f64 (atan2.f64 (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R (.f64 (atan2.f64 (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R) (.f64 (atan2.f64 (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #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 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))) (atan2.f64 (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(.f64 (atan2.f64 (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #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 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (-.f64 (.f64 (atan2.f64 (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 (atan2.f64 (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))) (-.f64 (atan2.f64 (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 3 binary64)) (pow.f64 (atan2.f64 (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (-.f64 (.f64 (atan2.f64 (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 (atan2.f64 (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(fma.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(-.f64 (atan2.f64 (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (neg.f64 (atan2.f64 (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (atan2.f64 (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(.f64 (pow.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))))))
(sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))))
(fabs.f64 (neg.f64 (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))))))
(fabs.f64 (sqrt.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))))
(exp.f64 (.f64 (log.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #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 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.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 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #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 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 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 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(/.f64 (-.f64 (.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (+.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #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 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #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 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #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 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #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 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #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 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #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 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (fma.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #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 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #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 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.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 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.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 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))))
(neg.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64))))
(neg.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #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 lambda1 lambda2))) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #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 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.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 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(fma.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #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))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))
(-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #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 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal -1/2 binary64)))
(+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (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 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))))))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.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 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.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 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #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 (-.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 (.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))))))) (.f64 (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)) (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 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.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 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal -1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))))) #s(literal 3 binary64)) (pow.f64 (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)) #s(literal 3 binary64))) (fma.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))))) (-.f64 (.f64 (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)) (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 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.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 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #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 phi1 phi2))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal -1/2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal -1/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 -1 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 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #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 phi1 phi2))) #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 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(neg.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) 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 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(-.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))))) (neg.f64 (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) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal -1/2 binary64))))
(-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.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 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (+.f64 (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 2 binary64) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))
(+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (pow.f64 (.f64 (neg.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 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.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 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal -1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.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 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(/.f64 (fma.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 (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 (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)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (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 #s(literal -1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (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 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (fma.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)))))))
(neg.f64 (-.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))
(sin.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) phi1)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(fma.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 1/2 binary64) (.f64 (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(fma.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 1/2 binary64) (neg.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))
(fma.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 1/2 binary64) (.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 #s(literal -1/2 binary64) phi2)) (.f64 (neg.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 #s(literal -1/2 binary64) phi2)) (neg.f64 (.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 #s(literal -1/2 binary64) phi2)) (.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) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (neg.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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (.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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))))
(-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(-.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(-.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (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))) (neg.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (neg.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(*.f64 #s(literal 1/2 binary64) phi1)
(*.f64 phi1 #s(literal 1/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))
phi1
#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 #s(literal -1/2 binary64) phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 phi2 #s(literal 1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (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 (neg.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
(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 phi2 #s(literal 1/2 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (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 phi2 #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) phi2)
(/.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))
phi2
(.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(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 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal -1/2 binary64) phi2) (fma.f64 #s(literal 1/2 binary64) phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal -1/2 binary64) phi2))) (cos.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 #s(literal -1/2 binary64) phi1)))) #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 (.f64 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(neg.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))))
(neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(sin.f64 (fma.f64 #s(literal -1/2 binary64) phi1 (*.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 #s(literal 1/2 binary64) phi1 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(cos.f64 (neg.f64 (*.f64 #s(literal -1/2 binary64) phi1)))
(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 #s(literal -1/2 binary64) phi1))
(cos.f64 (*.f64 (fabs.f64 phi1) #s(literal 1/2 binary64)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 phi2 #s(literal 1/2 binary64) (PI.f64)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))
(cos.f64 (fma.f64 phi2 #s(literal 1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(*.f64 (neg.f64 phi2) #s(literal 1/2 binary64))
(*.f64 #s(literal -1/2 binary64) phi2)
(*.f64 phi2 #s(literal -1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (neg.f64 phi2))
(/.f64 (neg.f64 phi2) #s(literal 2 binary64))
(neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.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)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))
(neg.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal -1/2 binary64)) (.f64 (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 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))
(fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(*.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))
(*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(/.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal -2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) phi1)) (cos.f64 (-.f64 (neg.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) phi1)) (cos.f64 (-.f64 (fabs.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.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 (neg.f64 phi1) phi2)) (cos.f64 (-.f64 (neg.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) phi2)) (cos.f64 (-.f64 (fabs.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.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 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi2))) (sin.f64 (+.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi2))) (sin.f64 (+.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2))) #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)) (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 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))))
(+.f64 (/.f64 (cos.f64 (+.f64 phi1 phi2)) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(+.f64 (/.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(sin.f64 (+.f64 (neg.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 phi1 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(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 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 phi2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(cos.f64 (neg.f64 (neg.f64 phi2)))
(cos.f64 (neg.f64 (fabs.f64 phi2)))
(cos.f64 (fabs.f64 (fabs.f64 phi2)))
(cos.f64 (neg.f64 phi2))
(cos.f64 (fabs.f64 phi2))
(cos.f64 phi2)
(+.f64 (.f64 (sin.f64 phi2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #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 #s(literal -1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (fma.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))))))
(neg.f64 (neg.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(fma.f64 (+.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (neg.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))
(.f64 (+.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))
(.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
(/.f64 (neg.f64 (+.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 lambda2 #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (+.f64 (fma.f64 lambda2 #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 lambda1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (fma.f64 lambda2 #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (fma.f64 lambda1 #s(literal 1/2 binary64) (fma.f64 lambda2 #s(literal 1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (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 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))))
(+.f64 (/.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) #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 (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 (fma.f64 #s(literal -1/2 binary64) lambda2 (*.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 lambda2 #s(literal 1/2 binary64) (*.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 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(cos.f64 (neg.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
(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 #s(literal -1/2 binary64) lambda2))
(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 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(*.f64 lambda2 #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) lambda2)
(/.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 #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 (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 (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 (sin.f64 (-.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (fma.f64 lambda2 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) lambda1)))) #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 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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))
(sin.f64 (fma.f64 #s(literal -1/2 binary64) lambda1 (*.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 lambda1 #s(literal 1/2 binary64) (*.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 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(cos.f64 (neg.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(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 #s(literal -1/2 binary64) lambda1))
(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 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))
(.f64 (pow.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 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) #s(literal 2 binary64))) (pow.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 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) #s(literal 2 binary64))))
(pow.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #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 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #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 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(fabs.f64 (sqrt.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #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 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #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 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #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 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))))
(/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.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 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #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 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))) (.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #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 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.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 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.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 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))) (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))))) (+.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #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 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) (fma.f64 (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))) (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))) (.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))))))
(neg.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))
(neg.f64 (neg.f64 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #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 phi1 phi2) #s(literal 1/2 binary64)))) (fabs.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #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 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(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 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #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 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #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 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))
#s(literal 1 binary64)
(.f64 (.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))) #s(literal 2 binary64)))
(fma.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))) R (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))) R))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))) R) (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))) R))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))) (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))))) (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))))
(/.f64 (-.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))) (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))))))) (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))) (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))))) (-.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))) (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))))))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))) #s(literal 3 binary64)) (pow.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))) (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))) (-.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))) (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))))))) (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))) (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))))))))))
(fma.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))))))))
(-.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))) (neg.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))))))))
(+.f64 (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))))))))
(+.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))) (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))))
(atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))))))
(.f64 (pow.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))))))
(sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))))
(fabs.f64 (neg.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))))))
(fabs.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))
(exp.f64 (.f64 (log.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) #s(literal 1/2 binary64)))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 #s(approx (pow (sin ( 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(approx (pow (sin ( 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)))
(/.f64 (-.f64 (.f64 #s(approx (pow (sin ( 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (-.f64 #s(approx (pow (sin ( 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))) (.f64 (neg.f64 #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))) (neg.f64 #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)) (neg.f64 #s(approx (pow (sin ( 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))))
(/.f64 (+.f64 (pow.f64 #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)) #s(literal 3 binary64))) (fma.f64 #s(approx (pow (sin ( 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))) (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))) (.f64 #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (neg.f64 #s(approx (pow (sin ( 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)) (fma.f64 (neg.f64 #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))) (neg.f64 #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)) (neg.f64 #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))) (.f64 #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)) #s(approx (pow (sin ( 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))
(/.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 #s(approx (pow (sin ( 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))) #s(literal 3 binary64))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)) (-.f64 (.f64 #s(approx (pow (sin ( 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))
(neg.f64 (-.f64 (neg.f64 #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) (neg.f64 (neg.f64 #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))
(fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (neg.f64 (neg.f64 #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))))
(fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))
(-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)) (neg.f64 #s(approx (pow (sin ( 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))
(-.f64 #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))
(-.f64 #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))) (.f64 (neg.f64 (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))
(-.f64 #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))) (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))
(+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)) (neg.f64 (neg.f64 #s(approx (pow (sin ( 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))))
(+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)) #s(approx (pow (sin ( 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))
(+.f64 #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) #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 (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 (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 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #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 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #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 lambda1 lambda2))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #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 lambda1 lambda2))) #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 lambda1 lambda2))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal -1/2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal -1/2 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 -1 binary64) (-.f64 lambda1 lambda2)))) #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 lambda1 lambda2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #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 lambda1 lambda2))) #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 lambda1 lambda2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))
(neg.f64 (.f64 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(neg.f64 (.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))))))
(neg.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(-.f64 #s(literal 1/2 binary64) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal -1/2 binary64))))
(-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.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)))
(+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal -1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #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 #s(literal -1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (fma.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))))))
(neg.f64 (neg.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(fma.f64 (+.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (neg.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (neg.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 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 (.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 #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 lambda1) #s(literal 1/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 #s(literal -1/2 binary64) lambda2))
(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 #s(literal -1/2 binary64) lambda2))
(-.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.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 #s(literal -1/2 binary64) lambda2))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 lambda2) lambda1)) lambda1)
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (neg.f64 lambda2) (neg.f64 lambda2))) (-.f64 lambda1 (neg.f64 lambda2)))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (neg.f64 lambda2) #s(literal 3 binary64))) (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 lambda1 (neg.f64 lambda2))
#s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))
(.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))
(.f64 #s(literal 1/4 binary64) (.f64 phi1 phi1))
#s(literal 1/4 binary64)
(*.f64 (pow.f64 phi1 #s(literal 1 binary64)) (pow.f64 phi1 #s(literal 1 binary64)))
(*.f64 (pow.f64 phi1 #s(literal 1 binary64)) phi1)
(*.f64 (pow.f64 phi1 (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 phi1 (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(*.f64 (neg.f64 phi1) (neg.f64 phi1))
(*.f64 (fabs.f64 phi1) (fabs.f64 phi1))
(*.f64 phi1 phi1)
(pow.f64 phi1 #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 phi1) #s(literal 2 binary64)))
(.f64 (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))))
(fabs.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))))))
(exp.f64 (.f64 (log.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) #s(literal 1 binary64))) #s(literal 1 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 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 (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (neg.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))) (-.f64 #s(literal 1 binary64) (neg.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) #s(literal 3 binary64))) (fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) (-.f64 (.f64 (neg.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (neg.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))))) (.f64 #s(literal 1 binary64) (neg.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))))))))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))))) (+.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))
(/.f64 (-.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))) #s(literal 3 binary64))) (fma.f64 #s(literal 1 binary64) #s(literal 1 binary64) (fma.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))) (.f64 #s(literal 1 binary64) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))))
(neg.f64 (-.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))) #s(literal 1 binary64)))
(-.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))))))
(-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))))
(+.f64 #s(literal 1 binary64) (neg.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))
(.f64 (.f64 R #s(literal 2 binary64)) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))))
(.f64 (.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 (.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))) #s(literal 2 binary64)) R)
(.f64 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 (.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))) #s(literal 2 binary64)))
(fma.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 (.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))) 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 (.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))) R))
(+.f64 (.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 (.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))) 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 (.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))) R))
(.f64 (+.f64 #s(literal 1 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 (.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))))) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))))
(.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 (.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))))
(/.f64 (-.f64 (.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 (.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))) (.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 (.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))))) (-.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 (.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))))
(/.f64 (+.f64 (pow.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 (.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))) #s(literal 3 binary64)) (pow.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 (.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))) #s(literal 3 binary64))) (fma.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 (.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))) (-.f64 (.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 (.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))) (.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 (.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))))))
(fma.f64 #s(literal 1 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))) (.f64 #s(literal 1 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))))
(-.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 (.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))) (neg.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 (.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))))
(+.f64 (.f64 #s(literal 1 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))) (.f64 #s(literal 1 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))))
(+.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 (.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))))
(atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(.f64 (pow.f64 (fma.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (fma.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (fma.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))))
(sqrt.f64 (fma.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))
(fabs.f64 (neg.f64 (sqrt.f64 (fma.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))))
(fabs.f64 (sqrt.f64 (fma.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(exp.f64 (.f64 (log.f64 (fma.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.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 #s(literal -1/2 binary64) lambda2)))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #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 #s(literal -1/2 binary64) lambda2)))))))) (.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 #s(literal -1/2 binary64) lambda2)))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #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 #s(literal -1/2 binary64) lambda2)))))))) (.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 #s(literal -1/2 binary64) lambda2)))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (.f64 (.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 #s(literal -1/2 binary64) lambda2)))))) (.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 #s(literal -1/2 binary64) lambda2)))))))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #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 #s(literal -1/2 binary64) lambda2))))))))
(/.f64 (-.f64 (.f64 (.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 #s(literal -1/2 binary64) lambda2)))))) (.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 #s(literal -1/2 binary64) lambda2))))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))) (+.f64 (.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 #s(literal -1/2 binary64) lambda2)))))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #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 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.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 #s(literal -1/2 binary64) lambda2)))))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 (.f64 (.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 #s(literal -1/2 binary64) lambda2)))))) (.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 #s(literal -1/2 binary64) lambda2))))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #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 #s(literal -1/2 binary64) lambda2))))))))))
(/.f64 (-.f64 (pow.f64 (.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 #s(literal -1/2 binary64) lambda2)))))) #s(literal 3 binary64)) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (.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 #s(literal -1/2 binary64) lambda2)))))) (.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 #s(literal -1/2 binary64) lambda2)))))) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (.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 #s(literal -1/2 binary64) lambda2)))))) (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))))
(/.f64 (-.f64 (.f64 (.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 #s(literal -1/2 binary64) lambda2)))))) (.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 #s(literal -1/2 binary64) lambda2))))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (-.f64 (.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 #s(literal -1/2 binary64) lambda2)))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 (.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 #s(literal -1/2 binary64) lambda2)))))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (.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 #s(literal -1/2 binary64) lambda2)))))) (.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 #s(literal -1/2 binary64) lambda2)))))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (.f64 (.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 #s(literal -1/2 binary64) lambda2)))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))))
(neg.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #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 #s(literal -1/2 binary64) lambda2))))))))
(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 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) lambda2)))))))
(fma.f64 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #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 #s(literal -1/2 binary64) lambda2)))))))
(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 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) lambda2)))))))
(fma.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(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 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(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 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(-.f64 (.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 #s(literal -1/2 binary64) lambda2)))))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #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 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (neg.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) lambda2))))) (cos.f64 phi2))) (cos.f64 phi1)))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.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 #s(literal -1/2 binary64) lambda2)))))))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.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 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2))))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (neg.f64 (.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 #s(literal -1/2 binary64) lambda2))))))))
(+.f64 (.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 #s(literal -1/2 binary64) lambda2)))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #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 #s(literal -1/2 binary64) lambda2)))))))
(.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) lambda2))))) (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 #s(literal -1/2 binary64) lambda2))))))
(.f64 (fabs.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (fabs.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))
(.f64 (neg.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (neg.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))
(.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
(.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(.f64 (sin.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))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) lambda2 (*.f64 #s(literal -1/2 binary64) 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 #s(literal -1/2 binary64) lambda2)))))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))
(*.f64 (neg.f64 lambda2) #s(literal 1/2 binary64))
(*.f64 #s(literal -1/2 binary64) lambda2)
(*.f64 lambda2 #s(literal -1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (neg.f64 lambda2))
(neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))
#s(literal -1/2 binary64)
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (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 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))))))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.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 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.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 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #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 (-.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 (.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))))))) (.f64 (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)) (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 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.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 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal -1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))))) #s(literal 3 binary64)) (pow.f64 (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)) #s(literal 3 binary64))) (fma.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))))) (-.f64 (.f64 (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)) (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 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.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 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #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 phi1 phi2))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal -1/2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal -1/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 -1 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 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #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 phi1 phi2))) #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 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(neg.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) 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 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(-.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))))) (neg.f64 (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) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal -1/2 binary64))))
(-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.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 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (+.f64 (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 2 binary64) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))
(+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (pow.f64 (.f64 (neg.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 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.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 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal -1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.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 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(.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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(/.f64 (fma.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 (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 (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)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (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 #s(literal -1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (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 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (fma.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 2 binary64))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)))))))
(neg.f64 (-.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))
(sin.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) phi1)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(fma.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 1/2 binary64) (.f64 (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(fma.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 1/2 binary64) (neg.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))
(fma.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 1/2 binary64) (.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 #s(literal -1/2 binary64) phi2)) (.f64 (neg.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 #s(literal -1/2 binary64) phi2)) (neg.f64 (.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 #s(literal -1/2 binary64) phi2)) (.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) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (neg.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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (.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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))))
(-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))))
(-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(-.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(-.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (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))) (neg.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (neg.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(.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 (-.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 (.f64 #s(literal 1/2 binary64) phi1) #s(literal 2 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 phi2 #s(literal 1/2 binary64)) (.f64 phi2 #s(literal 1/2 binary64)))) (*.f64 #s(literal 1/2 binary64) (+.f64 phi1 phi2)))
(/.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) (fma.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 (.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 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))
(neg.f64 (/.f64 (-.f64 phi1 phi2) #s(literal -2 binary64)))
(neg.f64 (/.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)))
(neg.f64 (*.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64)))
(neg.f64 (-.f64 (.f64 phi2 #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) phi1)))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal -1/2 binary64) phi2))
(fma.f64 phi1 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) phi2))
(-.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 phi2 #s(literal 1/2 binary64)))
(+.f64 (.f64 #s(literal 1/2 binary64) phi1) (.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 phi1 (neg.f64 phi2))
(.f64 (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #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 (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #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 (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #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 (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #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 (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))))
(fabs.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #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 (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #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 (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #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 (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #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 (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))) (neg.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))) (-.f64 #s(literal 1 binary64) (neg.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #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 (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #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 (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))) (neg.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))) (.f64 #s(literal 1 binary64) (neg.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #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 (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))) (+.f64 #s(literal 1 binary64) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #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 (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #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 (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))) (.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))))
(neg.f64 (-.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #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 (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))
(-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))
(+.f64 #s(literal 1 binary64) (neg.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 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) phi1))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) 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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.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 #s(literal 1/2 binary64) phi1))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.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 #s(literal 1/2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.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 #s(literal 1/2 binary64) phi1))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.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 #s(literal 1/2 binary64) 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) phi1)))))))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.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 #s(literal 1/2 binary64) 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) phi1))))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.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 #s(literal 1/2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1))))) (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.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 #s(literal 1/2 binary64) phi1))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.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 #s(literal 1/2 binary64) phi1)))))) #s(literal 3 binary64))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.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 #s(literal 1/2 binary64) 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) phi1)))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.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 #s(literal 1/2 binary64) phi1))))))))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.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 #s(literal 1/2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1))))))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 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) phi1)))))))
(/.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.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 #s(literal 1/2 binary64) phi1))))) #s(literal 3 binary64))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.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 #s(literal 1/2 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 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) 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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)))
(fma.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.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 #s(literal 1/2 binary64) phi1))))))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 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) phi1))))))
(fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.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 #s(literal 1/2 binary64) phi1))))))))
(fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.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) phi1))))))
(-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.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 #s(literal 1/2 binary64) 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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #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 #s(literal 1/2 binary64) phi1))))) (.f64 (neg.f64 (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.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) phi1))))) (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))
(+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.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 #s(literal 1/2 binary64) phi1))))))))
(+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 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) 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) phi1))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)))
(.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (fabs.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(.f64 (sin.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))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.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 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1)))))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(*.f64 #s(literal 1/2 binary64) phi1)
(*.f64 phi1 #s(literal 1/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 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)))
(fma.f64 (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) R (.f64 (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) R))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) R) (.f64 (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) R))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))))) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))))
(.f64 (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))))
(/.f64 (-.f64 (.f64 (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))) (.f64 (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))))) (-.f64 (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (-.f64 (.f64 (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))) (.f64 (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))))))
(fma.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))))
(-.f64 (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (neg.f64 (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))))
(+.f64 (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))))
(+.f64 (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))))
(atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(.f64 (pow.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(.f64 (sqrt.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(.f64 (pow.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)))
(pow.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(fabs.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))
(exp.f64 (.f64 (log.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 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 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (pow.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))))
(.f64 (neg.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (neg.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(.f64 (pow.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(.f64 (pow.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (pow.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))
(pow.f64 (.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))
(pow.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 1 binary64))
(pow.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (-.f64 (.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (+.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #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 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 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 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (-.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #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 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 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 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))))
(neg.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64))))
(neg.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (*.f64 (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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))
(-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #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 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (cos.f64 phi2))) (cos.f64 phi1)))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 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 #s(literal -1 binary64) (-.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(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64)))))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(sqrt.f64 (.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))
(fabs.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(exp.f64 (.f64 (log.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(exp.f64 (.f64 (log.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal -1/2 binary64)))
(+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (pow.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(.f64 (sqrt.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(.f64 (pow.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)))
(pow.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(fabs.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))
(exp.f64 (.f64 (log.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 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 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (pow.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))))
(.f64 (neg.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (neg.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(.f64 (pow.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(.f64 (pow.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (pow.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))
(pow.f64 (.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))
(pow.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 1 binary64))
(pow.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (-.f64 (.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (+.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #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 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 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 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (-.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #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 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 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 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))))
(neg.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64))))
(neg.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (*.f64 (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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))
(-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #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 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (cos.f64 phi2))) (cos.f64 phi1)))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 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 #s(literal -1 binary64) (-.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(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64)))))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(sqrt.f64 (.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))
(fabs.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(exp.f64 (.f64 (log.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(exp.f64 (.f64 (log.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal -1/2 binary64)))
(+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64)) #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 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal -1/2 binary64)) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal -1/2 binary64))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 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 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal -1/2 binary64)) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal -1/2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal -1/2 binary64))))))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64)) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 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 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64)) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))))))
(neg.f64 (fma.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(-.f64 #s(literal 1/2 binary64) (neg.f64 (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal -1/2 binary64))))
(-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64)))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal -1/2 binary64)))
(.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))
(/.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 2 binary64))
#s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 lambda1) (.f64 (sin.f64 lambda1) lambda2))) (*.f64 (sin.f64 lambda1) lambda2))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 lambda2) (sin.f64 lambda1)) (cos.f64 lambda1))) (cos.f64 lambda1))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))) (cos.f64 lambda1))
(/.f64 (-.f64 (.f64 (.f64 (sin.f64 lambda1) lambda2) (.f64 (sin.f64 lambda1) lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda1))) (-.f64 (*.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1)))
(/.f64 (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda1)) (.f64 (.f64 (neg.f64 lambda2) (sin.f64 lambda1)) (.f64 (neg.f64 lambda2) (sin.f64 lambda1)))) (+.f64 (cos.f64 lambda1) (*.f64 (neg.f64 lambda2) (sin.f64 lambda1))))
(/.f64 (+.f64 (pow.f64 (.f64 (sin.f64 lambda1) lambda2) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))) (fma.f64 (.f64 (sin.f64 lambda1) lambda2) (.f64 (sin.f64 lambda1) lambda2) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda1)) (.f64 (.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 lambda2) (sin.f64 lambda1)) #s(literal 3 binary64))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda1) (fma.f64 (.f64 (neg.f64 lambda2) (sin.f64 lambda1)) (.f64 (neg.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (*.f64 (neg.f64 lambda2) (sin.f64 lambda1))))))
(/.f64 (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda1)) (.f64 (.f64 (sin.f64 lambda1) lambda2) (.f64 (sin.f64 lambda1) lambda2))) (-.f64 (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) lambda2)))
(/.f64 (+.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) lambda2) #s(literal 3 binary64))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda1) (-.f64 (.f64 (.f64 (sin.f64 lambda1) lambda2) (.f64 (sin.f64 lambda1) lambda2)) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 lambda1) lambda2)))))
(neg.f64 (-.f64 (*.f64 (neg.f64 lambda2) (sin.f64 lambda1)) (cos.f64 lambda1)))
(fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))
(fma.f64 lambda2 (sin.f64 lambda1) (cos.f64 lambda1))
(-.f64 (*.f64 (sin.f64 lambda1) lambda2) (neg.f64 (cos.f64 lambda1)))
(-.f64 (cos.f64 lambda1) (*.f64 (neg.f64 lambda2) (sin.f64 lambda1)))
(+.f64 (*.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))
(+.f64 (cos.f64 lambda1) (*.f64 (neg.f64 (neg.f64 lambda2)) (sin.f64 lambda1)))
(+.f64 (cos.f64 lambda1) (neg.f64 (*.f64 (neg.f64 lambda2) (sin.f64 lambda1))))
(+.f64 (cos.f64 lambda1) (*.f64 (sin.f64 lambda1) lambda2))
(sin.f64 (+.f64 (neg.f64 lambda1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 lambda1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 lambda1 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 lambda1) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 lambda1) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(cos.f64 (neg.f64 (neg.f64 lambda1)))
(cos.f64 (neg.f64 (fabs.f64 lambda1)))
(cos.f64 (fabs.f64 (fabs.f64 lambda1)))
(cos.f64 (neg.f64 lambda1))
(cos.f64 (fabs.f64 lambda1))
(cos.f64 lambda1)
(+.f64 (.f64 (sin.f64 lambda1) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(*.f64 (sin.f64 lambda1) lambda2)
(*.f64 lambda2 (sin.f64 lambda1))
(sin.f64 lambda1)
(*.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))
(*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(/.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal -2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) phi1)) (cos.f64 (-.f64 (neg.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) phi1)) (cos.f64 (-.f64 (fabs.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.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 (neg.f64 phi1) phi2)) (cos.f64 (-.f64 (neg.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) phi2)) (cos.f64 (-.f64 (fabs.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.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 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi2))) (sin.f64 (+.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi2))) (sin.f64 (+.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2))) #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)) (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 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))))
(+.f64 (/.f64 (cos.f64 (+.f64 phi1 phi2)) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(+.f64 (/.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (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 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))))))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.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 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.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 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #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 (-.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 (.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))))))) (.f64 (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)) (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 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.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 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal -1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))))) #s(literal 3 binary64)) (pow.f64 (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)) #s(literal 3 binary64))) (fma.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))))) (-.f64 (.f64 (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)) (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 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.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 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #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 phi1 phi2))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal -1/2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal -1/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 -1 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 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #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 phi1 phi2))) #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 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(neg.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) 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 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(-.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))))) (neg.f64 (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) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal -1/2 binary64))))
(-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.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 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (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 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.f64 (+.f64 (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 2 binary64) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))
(+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (pow.f64 (.f64 (neg.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 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.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 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal -1/2 binary64)))
(.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))))
(/.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(.f64 (+.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 (cos.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 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #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 phi1 phi2))) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))))
(neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))
(sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 #s(literal 1 binary64) (fabs.f64 (-.f64 phi2 phi1)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 (-.f64 phi1 phi2) #s(literal 1 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(fma.f64 (fabs.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fabs.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(fma.f64 (neg.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(fma.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 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))) (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #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 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(cos.f64 (neg.f64 (fabs.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2)))))
(cos.f64 (fabs.f64 (fabs.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2)))))
(cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2)))
(cos.f64 (fabs.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))))
(cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) (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 phi1 phi2))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))
(*.f64 (-.f64 phi1 phi2) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))
(*.f64 #s(literal 1/2 binary64) (+.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)))
(.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(/.f64 (fma.f64 #s(literal -1 binary64) (-.f64 phi1 phi2) (-.f64 phi2 phi1)) #s(literal -2 binary64))
(/.f64 (fma.f64 (-.f64 phi1 phi2) #s(literal 1 binary64) (-.f64 phi1 phi2)) #s(literal 2 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 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 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (-.f64 (.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (-.f64 phi2 phi1) (-.f64 phi2 phi1)) #s(literal -2 binary64))
(/.f64 (+.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) #s(literal 2 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 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))
(neg.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2)))
(fma.f64 (-.f64 phi2 phi1) #s(literal -1/2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(fma.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 #s(literal 1 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(fma.f64 phi1 #s(literal 1 binary64) (*.f64 (neg.f64 phi2) #s(literal 1 binary64)))
(-.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64)))
(-.f64 (.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/2 binary64)) (neg.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(+.f64 (.f64 #s(literal 1 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 #s(literal 1 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(+.f64 (.f64 phi1 #s(literal 1 binary64)) (.f64 (neg.f64 phi2) #s(literal 1 binary64)))
(+.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.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) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.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) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))
(sin.f64 (acos.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(sqrt.f64 (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))))
(fabs.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(cos.f64 (asin.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(exp.f64 (.f64 (log.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.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 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (neg.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1 binary64) (neg.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.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 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (neg.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (.f64 #s(literal 1 binary64) (neg.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (+.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.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 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))))
(neg.f64 (-.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(-.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(+.f64 #s(literal 1 binary64) (neg.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))
(.f64 (.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) #s(literal 2 binary64)))
(fma.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) R (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) R))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) R) (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) R))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (atan2.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))) (atan2.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #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 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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 (atan2.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (atan2.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))) (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (atan2.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))) (-.f64 (atan2.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (atan2.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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 (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #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 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #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 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (atan2.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (-.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (atan2.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))) (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (atan2.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #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 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(-.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (neg.f64 (atan2.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(+.f64 (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
(+.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (atan2.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(.f64 (pow.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(literal 2 binary64))) (pow.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(literal 2 binary64))))
(.f64 (sqrt.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(.f64 (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #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 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64)))
(pow.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(fabs.f64 (neg.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(fabs.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(exp.f64 (.f64 (log.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64)))
(.f64 (pow.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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 binary64) #s(literal 2 binary64))))
(.f64 (neg.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (neg.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(.f64 (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64)))
(.f64 (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(.f64 (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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 2 binary64) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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 2 binary64) #s(literal 2 binary64))))
(.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(pow.f64 (.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))
(pow.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(fabs.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(exp.f64 (.f64 (log.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64)))
(exp.f64 (.f64 (log.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)))
(.f64 (pow.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(literal 2 binary64))) (pow.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(literal 2 binary64))))
(.f64 (sqrt.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(.f64 (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #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 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64)))
(pow.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(fabs.f64 (neg.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(fabs.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(exp.f64 (.f64 (log.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64)))
(.f64 (pow.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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 binary64) #s(literal 2 binary64))))
(.f64 (neg.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (neg.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(.f64 (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64)))
(.f64 (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(.f64 (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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 2 binary64) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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 2 binary64) #s(literal 2 binary64))))
(.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(pow.f64 (.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))
(pow.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(fabs.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(exp.f64 (.f64 (log.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64)))
(exp.f64 (.f64 (log.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #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 binary64) (/.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)))) (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.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)) (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)))) (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)))
(/.f64 (-.f64 (.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.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 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(/.f64 (-.f64 (.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #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 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(neg.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64))))
(-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (neg.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))))
(-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) (neg.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(+.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (*.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 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)))))) (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (*.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 2 binary64) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)))) (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))))) (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))
(/.f64 (-.f64 (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (-.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)))) (-.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)))))) (+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.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 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)))) (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)))) (-.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (fma.f64 (-.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)))) (-.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (*.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))))))))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (-.f64 (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))))))
(neg.f64 (-.f64 (-.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)))) #s(literal 1/2 binary64)))
(-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))
(-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64))
(-.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)))))
(+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))
(+.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))))) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (*.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))))) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))))) (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (*.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #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 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (-.f64 (.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) (fma.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)))) (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))) (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) (-.f64 (.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))))))
(neg.f64 (-.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))))
(fma.f64 (.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (cos.f64 phi2))) #s(literal -1/2 binary64) (.f64 (neg.f64 (neg.f64 (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2))))
(fma.f64 (.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (cos.f64 phi2))) #s(literal -1/2 binary64) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (neg.f64 (neg.f64 (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2))))
(fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (cos.f64 phi2))) (.f64 (neg.f64 (neg.f64 (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2))))
(fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (cos.f64 phi2))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))))
(fma.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))))
(-.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))
(-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (neg.f64 (.f64 (.f64 lambda2 (cos.f64 phi1)) (*.f64 (sin.f64 lambda1) (cos.f64 phi2)))) #s(literal -1/2 binary64)))
(-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (neg.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (*.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))))
(-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 lambda2 (cos.f64 phi1)) (*.f64 (sin.f64 lambda1) (cos.f64 phi2)))))
(-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (neg.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (*.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)))))
(+.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (neg.f64 (neg.f64 (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2))))
(+.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)))
(+.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (*.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))))
(.f64 (.f64 lambda2 (cos.f64 phi1)) (*.f64 (sin.f64 lambda1) (cos.f64 phi2)))
(.f64 (.f64 (*.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) lambda2)
(.f64 lambda2 (.f64 (*.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)))
(.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 lambda1))
(.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (cos.f64 phi2)))
(*.f64 (sin.f64 lambda1) (cos.f64 phi2))
(*.f64 (cos.f64 phi2) (sin.f64 lambda1))
(/.f64 (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) lambda1)) (cos.f64 (+.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) lambda1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 lambda1 (neg.f64 phi2))) (sin.f64 (+.f64 lambda1 (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 lambda1 (fabs.f64 phi2))) (sin.f64 (+.f64 lambda1 (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 lambda1 phi2)) (sin.f64 (+.f64 lambda1 phi2))) #s(literal 2 binary64))
(.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))))
(.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(neg.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (fma.f64 (cos.f64 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 lambda1) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (cos.f64 lambda1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2))
(.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))))
(neg.f64 (*.f64 (fma.f64 (cos.f64 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi2)))
(neg.f64 (*.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64))))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 phi2) (.f64 (.f64 (cos.f64 lambda1) #s(literal -1/2 binary64)) (cos.f64 phi2)))
(+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (.f64 (*.f64 (cos.f64 lambda1) #s(literal -1/2 binary64)) (cos.f64 phi2)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 lambda1) #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 lambda1) #s(literal 1/2 binary64)) #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 lambda1) #s(literal -1/2 binary64)) (.f64 (cos.f64 lambda1) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) #s(literal -1/2 binary64))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 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 lambda1) #s(literal -1/2 binary64)) (.f64 (cos.f64 lambda1) #s(literal -1/2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal -1/2 binary64))))))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 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 lambda1) #s(literal 1/2 binary64)) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))))))
(neg.f64 (fma.f64 (cos.f64 lambda1) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(-.f64 #s(literal 1/2 binary64) (neg.f64 (*.f64 (cos.f64 lambda1) #s(literal -1/2 binary64))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64)))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) #s(literal -1/2 binary64)))
(*.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))
(/.f64 (cos.f64 lambda1) #s(literal 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 (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)))
(+.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 (-.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))))
(fma.f64 (sin.f64 (-.f64 phi1 phi2)) (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 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi2) (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)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.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 phi1)))
(fma.f64 (cos.f64 phi1) (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(-.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 (sin.f64 phi1) (sin.f64 (neg.f64 phi2))))
(cos.f64 (neg.f64 (fabs.f64 (-.f64 phi2 phi1))))
(cos.f64 (fabs.f64 (fabs.f64 (-.f64 phi2 phi1))))
(cos.f64 (-.f64 phi2 phi1))
(cos.f64 (fabs.f64 (-.f64 phi2 phi1)))
(cos.f64 (-.f64 phi1 phi2))
(+.f64 (.f64 (sin.f64 (-.f64 phi1 phi2)) (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 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(literal 2 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(literal 2 binary64))))
(pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))
(sin.f64 (acos.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(fabs.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(cos.f64 (asin.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(exp.f64 (.f64 (log.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #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 (neg.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #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 (-.f64 #s(literal 1 binary64) (/.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #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 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (neg.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (neg.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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 binary64) (neg.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #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) (-.f64 (.f64 (neg.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (neg.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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 binary64) (neg.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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 binary64) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #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 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(neg.f64 (-.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #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) (neg.f64 (neg.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (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 binary64) (neg.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (-.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))

eval721.0ms (1.9%)

Memory: 22.8MiB live, 900.5MiB allocated; 359ms collecting garbage
Compiler: Compiled 321 320 to 21 429 computations (93.3% saved)

prune926.0ms (2.4%)

Memory

-8.6MiB live, 1 130.7MiB allocated; 336ms collecting garbage

Pruning

174 alts after pruning (174 fresh and 0 done)

	Pruned	Kept	Total
New	1 909	82	1 991
Fresh	27	92	119
Picked	5	0	5
Done	0	0	0
Total	1 941	174	2 115

Accuracy

98.9%

Counts

2 115 → 174

Alt Table

Click to see full alt table

Status	Accuracy	Program
	60.3%	(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	44.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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))))) (.f64 #s(literal 2 binary64) R))
	37.4%	(.f64 (.f64 (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) R)
	16.5%	(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))) #s(literal 2 binary64)) R)
	34.3%	(.f64 (.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 (.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))) #s(literal 2 binary64)) R)
	44.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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	16.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))) (/.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)) #s(approx (pow (sin ( 1/2 phi1)) 2) (*.f64 #s(literal 1/4 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))))
	60.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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))))))))
	61.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.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))))))))))
	60.3%	(.f64 R (.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 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) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	29.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64)))))))
	29.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64)))))))
	49.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64)))))))
	45.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(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 phi1 phi2)))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(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 phi1 phi2)))))))) #s(literal 2 binary64)))))))
	26.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 1/2 binary64) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1) phi2))) #s(literal 1/2 binary64) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))) #s(literal 2 binary64)))))))
	59.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/2 binary64) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/2 binary64) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))) #s(literal 2 binary64)))))))
	74.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))) #s(literal 2 binary64)))))))
	60.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 #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) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 #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) #s(literal 1/2 binary64))))))) #s(literal 2 binary64)))))))
	60.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 phi2))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 phi2))))))) #s(literal 2 binary64)))))))
	23.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64)))))))
	24.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) #s(literal 2 binary64)))))))
	50.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1)))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1)))))) #s(literal 2 binary64)))))))
	43.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))) (sqrt.f64 #s(approx (- 1 (pow (sqrt (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))))
	48.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx ( 2 (* 1/2 (- phi1 phi2))) (.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64))))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (* 2 (* 1/2 (- phi1 phi2))) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64))))))))) #s(literal 2 binary64)))))))
	38.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- phi1 phi2)))) (cos.f64 (neg.f64 phi2))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- phi1 phi2)))) (cos.f64 (neg.f64 phi2))))))) #s(literal 2 binary64)))))))
	42.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))) #s(literal 2 binary64)))))))
	13.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 (-.f64 phi1 phi2) #s(literal 1 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 (-.f64 phi1 phi2) #s(literal 1 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) #s(literal 2 binary64)))))))
	13.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 phi1 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 phi1 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) #s(literal 2 binary64)))))))
	30.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))) (sqrt.f64 #s(approx (- 1 (pow (sqrt (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))))
	23.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- phi1 phi2)))) (cos.f64 (neg.f64 phi2))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- phi1 phi2)))) (cos.f64 (neg.f64 phi2))))))) #s(literal 2 binary64)))))))
	37.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64)))))))
	36.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2))))) (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))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2))))) (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))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64)))))))
	37.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2))))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2))))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64)))))))
	34.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))) #s(literal 2 binary64)))))))
	46.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.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 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) (.f64 #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))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.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 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) (.f64 #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))))))) #s(literal 2 binary64)))))))
	41.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))) #s(literal 2 binary64)))))))
	44.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) #s(literal 2 binary64)))))))
	43.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 2 binary64)))))))
	18.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) #s(approx (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) #s(approx (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1)))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 2 binary64)))))))
▶	26.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 2 binary64)))))))
	24.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) #s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) #s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))))) #s(literal 2 binary64)))))))
	34.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 #s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 phi1 (sin.f64 (neg.f64 phi2))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 #s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 phi1 (sin.f64 (neg.f64 phi2))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))))))) #s(literal 2 binary64)))))))
	60.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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))))))))
	79.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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 (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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))))))))))
	98.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 phi2 #s(literal 1/2 binary64))) (.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/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 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/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))))))))))))
	65.0%	(.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 phi2 #s(literal 1/2 binary64))) (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) phi1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (neg.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 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) phi1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (neg.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))))))))))
	76.1%	(.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal 1/2 binary64) (PI.f64))))) #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 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal 1/2 binary64) (PI.f64))))) #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))))))))))))
	61.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal 1/2 binary64) (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 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal 1/2 binary64) (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))))))))))
	76.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (fma.f64 #s(literal -1/2 binary64) (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 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
	47.1%	(.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (.f64 (/.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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (.f64 (/.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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	60.8%	(.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/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 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/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))))))))))
	60.9%	(.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/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 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	98.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #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 #s(literal -1/2 binary64) lambda2)) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (neg.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 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #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 #s(literal -1/2 binary64) lambda2)) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))))))))
	98.1%	(.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))) (/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (neg.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 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))) (/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))))))))))
	98.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/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))) (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 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 (PI.f64) #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))) (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 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 (PI.f64) #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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/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))) (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 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 (PI.f64) #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))) (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 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))))))))
	66.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/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 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
	66.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/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 (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
	57.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/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 #s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))))))
	98.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/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 #s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))))))))
	59.3%	(.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/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)))))))) #s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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) (/.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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(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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 #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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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))))))))))))))
	98.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/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 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #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 #s(literal -1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/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 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #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 #s(literal -1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))))))))
	65.9%	(.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.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 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
	48.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.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 #s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))))))
	51.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.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 #s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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)))))))))
	70.4%	(.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) #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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) #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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))))))))))
	98.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) #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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) #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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)))))))))))
▶	55.5%	(.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #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 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 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #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 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
	59.3%	(.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #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 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #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))))))))))
	44.4%	(.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.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 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.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))))))))))
	76.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (+.f64 (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)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (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 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (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 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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.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 (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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #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 (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)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	39.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 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/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 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi1)) (sin.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (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 (/.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)) (cos.f64 phi2)) (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) ( (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (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 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.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))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	37.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 (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 #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 (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.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) lambda2)))))))) (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 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
	54.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) (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 (-.f64 #s(literal 1 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 (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))))))))))
	78.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)) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (neg.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 (neg.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 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (neg.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 (neg.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))))))))))
	74.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 (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 (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 (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 (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 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #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 (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 (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 (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 (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 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #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 (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 (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 (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 (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 (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 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #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 (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 (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 (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 (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 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))))))))))))
	65.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 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))))))))
	65.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 (-.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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))))))
▶	65.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 (-.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 #s(literal 1/2 binary64) (-.f64 phi1 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 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
	36.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 #s(approx ( 1/2 (- phi1 phi2)) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))))
	32.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 #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 #s(approx ( 1/2 (- phi1 phi2)) (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))))))))
	32.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))))) #s(approx (- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda1 (.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 phi2) (pow.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))))))))))
	35.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))))) #s(approx (- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
	60.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 #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)))))))))))
	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 (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (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 ( (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
	37.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 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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)))))))))
	54.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) (pow.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))))))))))
	43.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #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))))))))))
	77.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/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 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/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))))))))))))
	79.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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))))))))))
	98.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (+.f64 (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 2 binary64) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #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 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (+.f64 (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 2 binary64) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #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))))))))))))
	73.4%	(.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 #s(literal -1/2 binary64) phi1))) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))))) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) 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 (-.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 #s(literal -1/2 binary64) phi1))) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))))) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) 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))))))))))
	37.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (exp.f64 (.f64 (log.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (exp.f64 (.f64 (log.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))))
	55.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ ( (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))))))
	58.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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)))))))))
▶	98.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))))))))
	58.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ ( (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))))
	57.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ ( (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))))
	52.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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))))))))))
	39.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
	44.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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	48.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 (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 #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 (.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 #s(literal 1/2 binary64) phi1))))))))))))
	32.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 (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)))))))))
	32.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 (+.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)))))))))
	46.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 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.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)))))))))
	44.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) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	17.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 binary64) (/.f64 #s(literal 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))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos 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)) #s(approx (pow (sin (* 1/2 phi1)) 2) (*.f64 #s(literal 1/4 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))))
	10.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 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.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))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- 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)) #s(approx (pow (sin ( 1/2 phi1)) 2) (*.f64 #s(literal 1/4 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))))
	48.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 (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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
	48.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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1))))))))))))
	31.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.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 (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)))))))))
	48.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)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.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)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1))))))))))))
	25.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)) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (exp.f64 (.f64 (log.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 lambda1 lambda2))) #s(literal 2 binary64)) #s(approx (pow (sin ( 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (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 (.f64 phi1 phi1) #s(literal 1/4 binary64))))))))))
	25.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)) #s(approx (pow (sin ( 1/2 phi1)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) #s(literal 1/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 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))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))))))))
	24.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)) #s(approx (pow (sin ( 1/2 phi1)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))) (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 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)))))))))
	29.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)) #s(approx (pow (sin ( 1/2 phi1)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 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)))))))))
	29.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)) #s(approx (pow (sin ( 1/2 phi1)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 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)))))))))
	25.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)) #s(approx (pow (sin ( 1/2 phi1)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.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)))))))))
	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 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))))))) (exp.f64 (.f64 (log.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))))) #s(literal 1/2 binary64))))))
	29.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)) #s(approx (pow (sin ( 1/2 phi1)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 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 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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))))))))))))
	16.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) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #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))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos 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)) #s(approx (pow (sin (* 1/2 phi1)) 2) (*.f64 #s(literal 1/4 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))))
	12.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)) #s(approx (pow (sin ( 1/2 phi1)) 2) (.f64 #s(literal 1/4 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 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) 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)))))))))))
	16.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) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 #s(literal 1/4 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 (cos.f64 phi1) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) #s(approx (pow (sin (* 1/2 phi1)) 2) (*.f64 #s(literal 1/4 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))))
	10.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) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #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))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(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))) #s(approx (pow (sin (* 1/2 phi1)) 2) (*.f64 #s(literal 1/4 binary64) (pow.f64 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) #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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(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) (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)))) (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 (sqrt.f64 #s(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)))))))))
	12.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) #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 phi1)) 2) (.f64 #s(literal 1/4 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 (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))) #s(approx (pow (sin ( 1/2 phi1)) 2) (*.f64 #s(literal 1/4 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))))
	34.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) #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)))))))))
	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 #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)) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 #s(literal 1/4 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 (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)) #s(approx (pow (sin (* 1/2 phi1)) 2) (*.f64 #s(literal 1/4 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))))
	44.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)))) (-.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) phi1))))) (.f64 (fma.f64 (cos.f64 (-.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)))) (-.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) phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))))
	28.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)))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.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)))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1))))))))))))
	41.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64)))))))
	25.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64)))))))
	44.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64)))))))
	54.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/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))))))))))))
	59.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/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))))))))))))
	47.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.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))))))))))
	48.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.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))))))))))
	32.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos 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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 (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))))))))))
	45.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.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))) (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 (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))))))))))
	29.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 (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 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 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)))))))))
	29.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 (sin.f64 (+.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 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 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 (.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)))))))))
	32.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 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.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)))))))))
	22.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))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.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)) #s(approx (pow (sin ( 1/2 phi1)) 2) (*.f64 #s(literal 1/4 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))))
	48.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) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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))))))))))
	37.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/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) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	37.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 (sin.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/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) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	16.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 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) #s(approx (pow (sin ( 1/2 phi1)) 2) (*.f64 #s(literal 1/4 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))))
	37.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- 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) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	36.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 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #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 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- 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 (-.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)))))))))
	38.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))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1))))))))))))
	29.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))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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 (-.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.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- 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) #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)))))))))
	38.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) 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 #s(approx (* 1/2 (- lambda1 lambda2)) (.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)))))))))
	30.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 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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 #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(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	38.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) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	38.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) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	32.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- 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) #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)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	27.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- 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) #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)))))))))
▶	38.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))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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)))) (-.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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))))
	35.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) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	22.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- 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 #s(approx (* 1/2 (- phi1 phi2)) (.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)))))))))
	23.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (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 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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.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 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #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) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #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)))))))))
	24.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))))) (sqrt.f64 #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 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 (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	22.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 #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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) lambda2)) #s(literal 2 binary64)) (pow.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 #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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.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))))) #s(approx (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt.f64 (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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 43 454 to 17 308 computations (60.2% saved)

sample0.0ms (0.0%)

Memory

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

Calls

Call 1

Inputs
2
1/2
-1/2
1
-1

Outputs
#s(literal 2 binary64)
#s(literal 1/2 binary64)
#s(literal -1/2 binary64)
#s(literal 1 binary64)
#s(literal -1 binary64)

Samples

0.0ms

1×

valid

Compiler

Compiled 7 to 7 computations (0.0% saved)

Precisions

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

adjust: 0.0ms (0.0% of total)

series628.0ms (1.7%)

Memory

32.1MiB live, 833.0MiB allocated; 246ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	4630	75342

Stop Event

1×	iter-limit

Counts

128 → 918

Calls

Call 1

Inputs
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))))))))
R
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ ( (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64))))))))
#s(literal 2 binary64)
(atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))))))
(sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))
(cos.f64 phi1)
phi1
(.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)))
(cos.f64 phi2)
phi2
(pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))
(*.f64 #s(literal 1/2 binary64) lambda2)
#s(literal 1/2 binary64)
lambda2
(sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))
(*.f64 #s(literal 1/2 binary64) lambda1)
lambda1
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))
(sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))
(pow.f64 (fma.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)))) #s(literal 2 binary64))
(fma.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) phi1))
(*.f64 #s(literal 1/2 binary64) phi1)
(sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))
(*.f64 #s(literal -1/2 binary64) phi2)
#s(literal -1/2 binary64)
(.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)
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64))))))
(-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))))
#s(literal 1 binary64)
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 2 binary64)))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 2 binary64))))))
(atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 2 binary64)))))
(sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 2 binary64)))
(pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 2 binary64))
(sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
(-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
#s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))
(cos.f64 (-.f64 phi1 phi2))
(-.f64 phi1 phi2)
(sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 2 binary64))))
(-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 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))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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)))) (-.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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- 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)))) (-.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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))))
(atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- 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)))) (-.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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- 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 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 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))
(sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))
(*.f64 #s(literal -1/2 binary64) lambda2)
(pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))
(sqrt.f64 (-.f64 #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 #s(literal 1/2 binary64) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #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)))) (-.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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #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)))) (-.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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #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 #s(literal 1/2 binary64) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #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 #s(literal 1/2 binary64) phi1)))))
(.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) phi1))))
(cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))
(.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1))
(.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))
(fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64))
(cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2)))
(*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))
#s(literal -1 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 (.f64 (.f64 (cos.f64 phi1) (cos.f64 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 #s(literal 1/2 binary64) (-.f64 phi1 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 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 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 #s(literal 1/2 binary64) (-.f64 phi1 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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 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 #s(literal 1/2 binary64) (-.f64 phi1 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 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (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 (.f64 (*.f64 (cos.f64 phi1) (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))
(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
(/.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 #s(literal 1/2 binary64) (-.f64 phi1 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 lambda1 lambda2)))))) (.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 phi1 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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))
(.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))
(cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))))
(.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))
(cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
(.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #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 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 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #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 phi2) (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 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #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 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 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #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 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #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 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 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #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 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))
(sqrt.f64 (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #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 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))
(+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #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 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))
(pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))
(sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(*.f64 phi1 #s(literal 1/2 binary64))
(cos.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(*.f64 phi2 #s(literal 1/2 binary64))
(.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(sin.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(neg.f64 (*.f64 phi2 #s(literal 1/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 (cos.f64 phi2) (pow.f64 (sin.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))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #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 phi2) (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 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #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 phi2) (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 (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))))
#s(approx R R)
#s(approx (* R (* 2 (atan2 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.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 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 (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))))))) (.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))) (.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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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/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/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/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 #s(literal -1 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 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)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 #s(literal -1 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 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.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/8 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))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) 2))) (pow (+ (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 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 (fma.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)))) #s(literal 2 binary64))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) 2))) (pow (+ (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (fma.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 (fma.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)))) #s(literal 2 binary64)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) 2))) (pow (+ (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (fma.f64 lambda1 (fma.f64 #s(literal -1 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 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)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) 2))) (pow (+ (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (fma.f64 lambda1 (fma.f64 #s(literal -1 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 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.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/8 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))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))))
#s(approx (* (cos phi2) (pow (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (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 (* (cos phi2) (pow (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) 2)) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.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 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))))
#s(approx (* (cos phi2) (pow (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) 2)) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 lambda1 (.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 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))))
#s(approx (* (cos phi2) (pow (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) 2)) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi2) (fma.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/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (.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 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))))
#s(approx (pow (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))
#s(approx (pow (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) 2) (fma.f64 #s(literal -1 binary64) (.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 (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) 2) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.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)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64))))
#s(approx (pow (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) 2) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.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/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/8 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 (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) (.f64 #s(literal -1 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))
#s(approx (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) (-.f64 (.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))))
#s(approx (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) (-.f64 (.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))))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))
#s(approx (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) (-.f64 (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/48 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))
#s(approx (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))
#s(approx (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (.f64 lambda1 (fma.f64 #s(literal -1/48 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.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 (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 #s(literal 1/3840 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))))))))
#s(approx (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (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)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 #s(literal 1/3840 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))))))))
#s(approx (sin (* 1/2 lambda1)) (*.f64 #s(literal 1/2 binary64) lambda1))
#s(approx (sin (* 1/2 lambda1)) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))
#s(approx (sin (* 1/2 lambda1)) (.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 (* 1/2 lambda1)) (.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 (* 1/2 lambda1)) (sin (* 1/2 lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))
#s(approx (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))) (+.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 (* 1/2 lambda1)) (sin (* 1/2 lambda2))) (+.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 (* 1/2 lambda1)) (sin (* 1/2 lambda2))) (+.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 (* 1/2 lambda1)) #s(literal 1 binary64))
#s(approx (cos (* 1/2 lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (cos (* 1/2 lambda1)) (+.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 (* 1/2 lambda1)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/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 (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.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))))))))) (sqrt.f64 (-.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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 #s(literal -1 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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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/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/8 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 #s(literal -1 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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (* 2 (atan2 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))))
#s(approx (atan2 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)))) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (+.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (+.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 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)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (+.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 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 (neg.f64 lambda2))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 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)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 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 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)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))))))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (fma.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/12 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 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)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.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 (neg.f64 lambda2))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 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)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.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 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)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/12 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 lambda1 (fma.f64 #s(literal 1/12 binary64) (.f64 lambda1 (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64))
#s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2)))))))
#s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (+.f64 #s(literal 1/2 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 phi2))))))))
#s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (+.f64 #s(literal 1/2 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 lambda1 (fma.f64 #s(literal 1/12 binary64) (.f64 lambda1 (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal 1/4 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 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)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (fma.f64 #s(literal -1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 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)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 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)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))))))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.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 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 (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 (+ (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 (- (- 1/2 (* 1/2 (cos (* 2 (* 1/2 phi1))))) (* (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (cos phi1))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi1) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))
#s(approx (- (- 1/2 (* 1/2 (cos (* 2 (* 1/2 phi1))))) (* (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (cos phi1))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 lambda2))))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi1) (.f64 (cos.f64 phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))
#s(approx (- (- 1/2 (* 1/2 (cos (* 2 (* 1/2 phi1))))) (* (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (cos phi1))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda2)))))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi1) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))
#s(approx (- (- 1/2 (* 1/2 (cos (* 2 (* 1/2 phi1))))) (* (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (cos phi1))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 lambda2)))) (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi1))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda2)))))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi1) (.f64 (cos.f64 phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))
#s(approx (* (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (cos phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))
#s(approx (* (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (cos phi1)) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 lambda2))) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64)))))
#s(approx (* (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (cos phi1)) (fma.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda2)))) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64)))))
#s(approx (* (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (cos phi1)) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi1)) (.f64 #s(literal -1/12 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 lambda2))))))) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64)))))
#s(approx (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64)))
#s(approx (+ (* (cos (* -1 (- lambda1 lambda2))) 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 (* -1 (- lambda1 lambda2))) 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 (* -1 (- lambda1 lambda2))) 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 (* -1 (- lambda1 lambda2))) (cos.f64 lambda2))
#s(approx (cos (* -1 (- lambda1 lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))
#s(approx (cos (* -1 (- lambda1 lambda2))) (+.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 (* -1 (- lambda1 lambda2))) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (sin.f64 lambda2))))) (*.f64 #s(literal -1 binary64) (sin.f64 lambda2))))))
#s(approx (* -1 (- lambda1 lambda2)) lambda2)
#s(approx (* -1 (- lambda1 lambda2)) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))
#s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))
#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/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))))))) (.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.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/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))))) (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 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 (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))))))
#s(approx (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2))))))))))))
#s(approx (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))))) (.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)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2))))))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2))))))))))))))
#s(approx (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))))) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2))))))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (fma.f64 #s(literal -1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 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)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2))))))))) (.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)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2))))))))))))))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2))))))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2))))))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2))))))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2))))))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2))))))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (fma.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2))))))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/12 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2))))))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/12 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2))))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2))))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/4 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2))))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))))))
#s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos.f64 (neg.f64 lambda2)))
#s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))
#s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))
#s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))) (sin.f64 (neg.f64 lambda2))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- 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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))
#s(approx (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (fma.f64 lambda1 (.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 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))
#s(approx (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (fma.f64 lambda1 (fma.f64 lambda1 (.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 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))
#s(approx (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.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 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 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) 2))) (pow (+ (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64))))
#s(approx (* (cos phi2) (pow (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) 2)) (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))))
#s(approx (pow (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) 2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)))
#s(approx (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))
#s(approx (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
#s(approx (sin (* 1/2 lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))
#s(approx (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2))))
#s(approx (cos (* 1/2 lambda1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (-.f64 (+.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 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (+.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 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.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 (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 (+ (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 (- (- 1/2 (* 1/2 (cos (* 2 (* 1/2 phi1))))) (* (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (cos phi1))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi1) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))))))
#s(approx (* (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (cos phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))))
#s(approx (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64)))
#s(approx (cos (* -1 (- lambda1 lambda2))) (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))))
#s(approx (* -1 (- lambda1 lambda2)) (*.f64 #s(literal -1 binary64) lambda1))
#s(approx (* -1 (- lambda1 lambda2)) (*.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))
#s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 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 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- 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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))
#s(approx (* (cos phi2) (pow (sin (* 1/2 (- 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 (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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (* R (* 2 (atan2 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))))
#s(approx (* 2 (atan2 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))))
#s(approx (atan2 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)))) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.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 (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 (+ (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 (- (- 1/2 (* 1/2 (cos (* 2 (* 1/2 phi1))))) (* (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (cos phi1))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi1) (.f64 (cos.f64 phi1) (-.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 (* -1 (- lambda1 lambda2))) 1/2) -1/2) (cos phi1)) (.f64 (cos.f64 phi1) (-.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 (* -1 (- lambda1 lambda2))) 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 (* -1 (- lambda1 lambda2))) (cos.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))
#s(approx (* -1 (- lambda1 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))
#s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #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/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))))))) (.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))))))))
#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/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))))))) (.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.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 -1 binary64) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))))) (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 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 (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.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 -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.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 -1 binary64) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (-.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 (* 1/2 (- lambda1 lambda2))))) (.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 (* 1/2 (- lambda1 lambda2)))) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- 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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))
#s(approx (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (.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 (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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) 2))) (pow (+ (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 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 (fma.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)))) #s(literal 2 binary64))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) 2))) (pow (+ (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 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 (fma.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)))) #s(literal 2 binary64)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) 2))) (pow (+ (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 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 (fma.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)))) #s(literal 2 binary64)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) 2))) (pow (+ (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 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 (fma.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)))) #s(literal 2 binary64)))))
#s(approx (* (cos phi2) (pow (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) 2)) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))
#s(approx (* (cos phi2) (pow (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) 2)) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.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 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))
#s(approx (* (cos phi2) (pow (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) 2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.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 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 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))
#s(approx (* (cos phi2) (pow (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) 2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.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 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 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 phi2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))
#s(approx (pow (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))
#s(approx (pow (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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 (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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 (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 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 (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) (+.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 (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/8 binary64) (.f64 lambda2 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))
#s(approx (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (-.f64 (.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)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))
#s(approx (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))
#s(approx (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal 1/384 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))
#s(approx (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (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)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/384 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))
#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 (* 1/2 lambda2) (*.f64 #s(literal 1/2 binary64) lambda2))
#s(approx (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))
#s(approx (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))) (.f64 lambda2 (fma.f64 #s(literal -1/48 binary64) (.f64 (pow.f64 lambda2 #s(literal 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(approx (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))) (.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 #s(literal 1/3840 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))))))))
#s(approx (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))) (.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/645120 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/3840 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))))))))
#s(approx (sin (* 1/2 lambda2)) (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (sin (* 1/2 lambda2)) (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/3840 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/48 binary64))))))
#s(approx (sin (* 1/2 lambda2)) (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/3840 binary64) (.f64 #s(literal -1/645120 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/48 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (+.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (+.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.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 lambda1) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (+.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 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 lambda1)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.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 lambda1) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.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 lambda1) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))))))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 lambda2 (fma.f64 #s(literal 1/12 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.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 lambda1) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.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 lambda1)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.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 lambda1) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.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 lambda1) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))))))))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 lambda2 (fma.f64 #s(literal 1/12 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (+.f64 #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 lambda1)))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 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)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.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)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 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)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))))))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/12 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.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 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (+.f64 (sqrt.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (sqrt.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (+.f64 (sqrt.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sqrt.f64 (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 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/48 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/64 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (+.f64 (sqrt.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sqrt.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/1440 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal -1/48 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/64 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (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/48 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/64 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (sqrt.f64 (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 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 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 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 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 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 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 (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 (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 (+ (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 (- (- 1/2 (* 1/2 (cos (* 2 (* 1/2 phi1))))) (* (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (cos phi1))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi1) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1 binary64) lambda1))) #s(literal 1/2 binary64))))))
#s(approx (- (- 1/2 (* 1/2 (cos (* 2 (* 1/2 phi1))))) (* (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (cos phi1))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1 binary64) lambda1)))))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi1) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1 binary64) lambda1))) #s(literal 1/2 binary64))))))
#s(approx (- (- 1/2 (* 1/2 (cos (* 2 (* 1/2 phi1))))) (* (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (cos phi1))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal -1 binary64) lambda1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1 binary64) lambda1))))))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi1) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1 binary64) lambda1))) #s(literal 1/2 binary64))))))
#s(approx (- (- 1/2 (* 1/2 (cos (* 2 (* 1/2 phi1))))) (* (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (cos phi1))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/12 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1 binary64) lambda1))))) (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal -1 binary64) lambda1)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1 binary64) lambda1))))))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi1) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1 binary64) lambda1))) #s(literal 1/2 binary64))))))
#s(approx (* (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (cos phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1 binary64) lambda1))) #s(literal 1/2 binary64))))
#s(approx (* (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (cos phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda1))) #s(literal 1/2 binary64)))))
#s(approx (* (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (cos phi1)) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1 binary64) lambda1))) (.f64 #s(literal -1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal -1 binary64) lambda1)))))) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1 binary64) lambda1))) #s(literal 1/2 binary64)))))
#s(approx (* (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (cos phi1)) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1 binary64) lambda1))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal -1 binary64) lambda1))) (.f64 #s(literal 1/12 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1 binary64) lambda1)))))))) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda1))) #s(literal 1/2 binary64)))))
#s(approx (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda1))) #s(literal 1/2 binary64)))
#s(approx (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 (.f64 #s(literal -1 binary64) lambda1))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 1/2 binary64)))
#s(approx (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (-.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal -1 binary64) lambda1)) (.f64 #s(literal -1/4 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal -1 binary64) lambda1))))))) #s(literal 1/2 binary64)))
#s(approx (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (-.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal -1 binary64) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda1)) (.f64 #s(literal 1/12 binary64) (.f64 lambda2 (sin.f64 (.f64 #s(literal -1 binary64) lambda1))))))))) #s(literal 1/2 binary64)))
#s(approx (cos (* -1 (- lambda1 lambda2))) (cos.f64 (*.f64 #s(literal -1 binary64) lambda1)))
#s(approx (cos (* -1 (- lambda1 lambda2))) (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda1)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (cos (* -1 (- lambda1 lambda2))) (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda1)) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (cos (* -1 (- lambda1 lambda2))) (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda1)) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda1)) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (sin.f64 (.f64 #s(literal -1 binary64) lambda1)))))) (sin.f64 (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (- lambda1 lambda2) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 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)) (+.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 (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))))
#s(approx (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))))))))
#s(approx (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 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)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))))))))))
#s(approx (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) (.f64 lambda2 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.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)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) #s(literal 2 binary64))) (.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))))) (.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)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))))))))))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/12 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 lambda2 (fma.f64 #s(literal 1/12 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (-.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 (* 1/2 (- lambda1 lambda2)))))) (-.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 (* 1/2 (- lambda1 lambda2)))))) (-.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 (* 1/2 (- lambda1 lambda2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2))))) (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 (* 1/2 (- lambda1 lambda2))))) (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 (* 1/2 (- lambda1 lambda2))))) (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 (* 1/2 (- lambda1 lambda2)))) (cos.f64 lambda1))
#s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (sin.f64 lambda1))))) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (cos (* 1/2 lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))
#s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))))
#s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda2) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))) lambda2))) (*.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (-.f64 phi1 phi2)) lambda2)))))
#s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda2) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))) lambda2)))))
#s(approx (* -1 (- lambda1 lambda2)) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))
#s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 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 (* R (* 2 (atan2 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))))
#s(approx (* 2 (atan2 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))))
#s(approx (atan2 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)))) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #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 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #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 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) lambda2) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))))))
#s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #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 lambda1)))))) lambda2) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.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 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 (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 (+ (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 (- (- 1/2 (* 1/2 (cos (* 2 (* 1/2 phi1))))) (* (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (cos phi1))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi1) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) #s(literal 1/2 binary64))))))
#s(approx (* (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (cos phi1)) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) #s(literal 1/2 binary64))))
#s(approx (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))) #s(literal 1/2 binary64)))
#s(approx (cos (* -1 (- lambda1 lambda2))) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (* -1 (- lambda1 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))
#s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))))))) (.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))))))))))))
#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/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))))))) (.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) 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/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))))) (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 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 (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.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 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.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 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.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 (* 1/2 (- lambda1 lambda2)))))) (-.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 (* 1/2 (- lambda1 lambda2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- 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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))
#s(approx (* (cos phi2) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (.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 (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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (neg.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 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (fma.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (fma.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (neg.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 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (fma.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) 2))) (pow (+ (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) 2))) (pow (+ (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) 2))) (pow (+ (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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))))) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) 2))) (pow (+ (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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/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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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) (+.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 phi1 phi1)
#s(approx (pow (+ (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))
#s(approx (pow (+ (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 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 (+ (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 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 (+ (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 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 (+ (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
#s(approx (+ (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) (+.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 (+ (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) (+.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 (+ (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) (+.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 (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/2 phi1) (*.f64 #s(literal 1/2 binary64) phi1))
#s(approx (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
#s(approx (* (cos (* 1/2 phi2)) (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 (* 1/2 phi2)) (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 (* 1/2 phi2)) (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 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 (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (neg.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 (neg.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (neg.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 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (neg.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 (neg.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (neg.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 (neg.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 phi1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (fma.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (fma.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (fma.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (+.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 phi1 (sin.f64 (neg.f64 phi2))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (+.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))) (.f64 phi1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (sin.f64 (neg.f64 phi2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (+.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))) (.f64 phi1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (sin.f64 (neg.f64 phi2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal 1/12 binary64) (sin.f64 (neg.f64 phi2)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi2)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi2)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi2)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))))))))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (sin.f64 (neg.f64 phi2)) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (sin.f64 (neg.f64 phi2)) (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal 1/12 binary64) (sin.f64 (neg.f64 phi2)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi2)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi2)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 phi1 (sin.f64 (neg.f64 phi2))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) (.f64 phi1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (sin.f64 (neg.f64 phi2)) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) (.f64 phi1 (fma.f64 #s(literal 1/4 binary64) (/.f64 (sin.f64 (neg.f64 phi2)) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (fma.f64 #s(literal 1/12 binary64) (sin.f64 (neg.f64 phi2)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi2)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))))))))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/12 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2))))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))
#s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))
#s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))
#s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))
#s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (fma.f64 #s(literal -1/12 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2))) (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))
#s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))))
#s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))))))))
#s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (fma.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))))))))))
#s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (fma.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (.f64 #s(literal 1/1440 binary64) (.f64 lambda2 (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))))))))))))))
#s(approx (* 1/2 (cos (- phi1 phi2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))
#s(approx (* 1/2 (cos (- phi1 phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))
#s(approx (* 1/2 (cos (- phi1 phi2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)) (.f64 #s(literal -1/4 binary64) (*.f64 phi1 (cos.f64 (neg.f64 phi2))))))))
#s(approx (* 1/2 (cos (- phi1 phi2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/12 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2))))))))))
#s(approx (cos (- phi1 phi2)) (cos.f64 (neg.f64 phi2)))
#s(approx (cos (- phi1 phi2)) (+.f64 (cos.f64 (neg.f64 phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2))))))
#s(approx (cos (- phi1 phi2)) (+.f64 (cos.f64 (neg.f64 phi2)) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 (cos.f64 (neg.f64 phi2)))) (sin.f64 (neg.f64 phi2))))))
#s(approx (cos (- phi1 phi2)) (+.f64 (cos.f64 (neg.f64 phi2)) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2)))))) (sin.f64 (neg.f64 phi2))))))
#s(approx (- phi1 phi2) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (- phi1 phi2) (-.f64 phi1 phi2))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 phi1 (sin.f64 (neg.f64 phi2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (neg.f64 phi2)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (neg.f64 phi2)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal 1/12 binary64) (sin.f64 (neg.f64 phi2)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi2)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi2)) (-.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi2)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))))))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal 1/2 binary64) (sin.f64 (neg.f64 phi2)))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal 1/12 binary64) (sin.f64 (neg.f64 phi2)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi2)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi2)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal 1/2 binary64) (sin.f64 (neg.f64 phi2)))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 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 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt.f64 (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 (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (+.f64 (sqrt.f64 (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 #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) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (+.f64 (sqrt.f64 (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 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) 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) 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) 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) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (+.f64 (sqrt.f64 (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 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) 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) 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) 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) 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) 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) 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) 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) 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 (sin (* 1/2 (- phi1 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 (sin (* 1/2 (- phi1 phi2))) 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) 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 (sin (* 1/2 (- phi1 phi2))) 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) 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) 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 (sin (* 1/2 (- phi1 phi2))) 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) 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) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (pow (sin (* 1/2 (- phi1 phi2))) 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 (* 1/2 (- phi1 phi2))) 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 (* 1/2 (- phi1 phi2))) 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 (* 1/2 (- phi1 phi2))) (+.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 (* 1/2 (- phi1 phi2))) (+.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 (* 1/2 (- phi1 phi2))) (+.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 (* 1/2 (- phi1 phi2)) (*.f64 #s(literal -1/2 binary64) phi2))
#s(approx (* 1/2 (- phi1 phi2)) (fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) phi1)))
#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) (* (* (* (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 (- (- 1/2 (* 1/2 (cos (* 2 (* 1/2 phi1))))) (* (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (cos phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))))))
#s(approx (- (- 1/2 (* 1/2 (cos (* 2 (* 1/2 phi1))))) (* (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -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 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))))))
#s(approx (- (- 1/2 (* 1/2 (cos (* 2 (* 1/2 phi1))))) (* (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (cos phi1))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (+.f64 #s(literal 1/4 binary64) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/48 binary64) (.f64 #s(literal 1/24 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))))))) (.f64 #s(literal -1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))))))
#s(approx (- (- 1/2 (* 1/2 (cos (* 2 (* 1/2 phi1))))) (* (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (cos phi1))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (+.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/720 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))))) (+.f64 #s(literal 1/48 binary64) (.f64 #s(literal 1/24 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))))))) (.f64 #s(literal -1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 phi1))))) (*.f64 #s(literal 1/4 binary64) (pow.f64 phi1 #s(literal 2 binary64))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 phi1))))) (.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 (- 1/2 (* 1/2 (cos (* 2 (* 1/2 phi1))))) (.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 (- 1/2 (* 1/2 (cos (* 2 (* 1/2 phi1))))) (.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 (* 1/2 (cos (* 2 (* 1/2 phi1)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 phi1)))) (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/4 binary64)))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 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/48 binary64) (*.f64 #s(literal -1/1440 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/4 binary64)))))
#s(approx (* (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (cos phi1)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))))) #s(literal 1/2 binary64)))
#s(approx (* (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (cos phi1)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))))))) #s(literal 1/2 binary64)))
#s(approx (* (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (cos phi1)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/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 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))) (.f64 #s(literal 1/24 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2)))) #s(literal 1/2 binary64)))))))) #s(literal 1/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 (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 phi1 (sin.f64 (neg.f64 phi2))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
#s(approx (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (neg.f64 phi2)) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.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 (neg.f64 phi2)))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))))
#s(approx (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 (neg.f64 phi2)) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (.f64 #s(literal 1/12 binary64) (sin.f64 (neg.f64 phi2))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 (neg.f64 phi2)) (-.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.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 (neg.f64 phi2)))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 (neg.f64 phi2)) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.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 (neg.f64 phi2)))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)) (.f64 phi1 (-.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)) (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/12 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)) (.f64 #s(literal -1/4 binary64) (*.f64 phi1 (cos.f64 (neg.f64 phi2)))))))))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)) (.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2)) (.f64 #s(literal 1/12 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2)))))))))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (fma.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.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) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.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 (neg.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 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.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 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.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 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.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 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (neg.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 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))
#s(approx (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (pow.f64 (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))
#s(approx (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (pow.f64 (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))
#s(approx (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))
#s(approx (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (neg.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 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))))))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))
#s(approx (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
#s(approx (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) (+.f64 (sin.f64 (neg.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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) (+.f64 (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi1 (fma.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (neg.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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) (+.f64 (sin.f64 (neg.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 (neg.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 (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2)))) (+.f64 (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))
#s(approx (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2)))) (+.f64 (sin.f64 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/384 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))))
#s(approx (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2)))) (+.f64 (sin.f64 (neg.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 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 #s(literal 1/384 binary64) (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))))))))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.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 (neg.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 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))))))))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.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 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.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 (neg.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 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.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 (neg.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 (neg.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 (neg.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 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))
#s(approx (cos phi1) (cos.f64 phi1))
#s(approx (pow (+ (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (pow.f64 (fma.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)))) #s(literal 2 binary64)))
#s(approx (+ (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) (fma.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)))))
#s(approx (cos (* 1/2 phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
#s(approx (* (cos (* 1/2 phi2)) (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 (* 1/2 (cos (- phi1 phi2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))
#s(approx (cos (- phi1 phi2)) (cos.f64 (-.f64 phi1 phi2)))
#s(approx (- phi1 phi2) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 phi2 phi1)))))
#s(approx (sin (* 1/2 (- phi1 phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
#s(approx (* 1/2 (- phi1 phi2)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 phi2 phi1)))))
#s(approx (- 1/2 (* 1/2 (cos (* 2 (* 1/2 phi1))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 phi1)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))
#s(approx (* (cos phi1) (cos phi2)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))
#s(approx (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))
#s(approx (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))))
#s(approx (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
#s(approx (* R (* 2 (atan2 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))))))) #s(literal 2 binary64))))))))
#s(approx (* 2 (atan2 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))) #s(literal 2 binary64)))))))
#s(approx (atan2 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)))) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))))))) #s(literal 2 binary64))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))))))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))))))) #s(literal 2 binary64)))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))))))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))))
#s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (-.f64 (+.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 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))))
#s(approx (* 1/2 (cos (- phi1 phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))))))
#s(approx (cos (- phi1 phi2)) (cos.f64 (neg.f64 (+.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))
#s(approx (- phi1 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (/.f64 phi2 phi1) #s(literal 1 binary64)))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1))))))) #s(literal 2 binary64)))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 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 (- 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 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64))))
#s(approx (pow (sin (* 1/2 (- phi1 phi2))) 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 (* 1/2 (- phi1 phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))
#s(approx (* 1/2 (- phi1 phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 phi2 phi1)) #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) (.f64 (cos.f64 phi2) (pow.f64 (sin.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 (+ (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 (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))))))) (.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))))
#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/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))))))) (.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.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/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))))) (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))
#s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 #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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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))))) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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))))) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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(literal 2 binary64)))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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))))) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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(literal 2 binary64))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) 2)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))))
#s(approx (* (cos phi2) (pow (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) 2)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))))
#s(approx (* (cos phi2) (pow (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) 2)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))))
#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 phi2 phi2)
#s(approx (pow (+ (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))
#s(approx (pow (+ (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2))) (* (cos (* 1/2 phi2)) (sin (* 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 (* 1/2 phi1)) (sin (* -1/2 phi2))) (* (cos (* 1/2 phi2)) (sin (* 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 (* 1/2 phi1)) (sin (* -1/2 phi2))) (* (cos (* 1/2 phi2)) (sin (* 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 (* 1/2 phi1)) (sin (* -1/2 phi2))) (* (cos (* 1/2 phi2)) (sin (* 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 (* 1/2 phi1)) (sin (* -1/2 phi2))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) (+.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 (+ (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) (+.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 (sin (* -1/2 phi2)) (.f64 phi2 (-.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (sin (* -1/2 phi2)) (.f64 phi2 (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/48 binary64) (*.f64 #s(literal -1/3840 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
#s(approx (sin (* -1/2 phi2)) (.f64 phi2 (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/48 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/645120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/3840 binary64))))) #s(literal 1/2 binary64))))
#s(approx (* (cos (* 1/2 phi2)) (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 (* 1/2 phi2)) (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 (* 1/2 phi2)) (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 (* 1/2 phi2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (cos (* 1/2 phi2)) (+.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 (* 1/2 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/384 binary64) (*.f64 #s(literal -1/46080 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/8 binary64)))))
#s(approx (* 1/2 phi2) (*.f64 #s(literal 1/2 binary64) phi2))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 #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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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) (/.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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(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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 #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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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) (/.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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(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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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(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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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) (/.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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(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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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))))))) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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))))))) (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (+.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 phi2 (sin.f64 phi1)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (+.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 phi1) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (+.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 phi1) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (.f64 #s(literal -1/12 binary64) (sin.f64 phi1))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))))))))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 phi1)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal -1/4 binary64) (cos.f64 phi1))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (.f64 #s(literal -1/12 binary64) (sin.f64 phi1))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))) (.f64 #s(literal -1/4 binary64) (cos.f64 phi1))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 phi2 (sin.f64 phi1)) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 phi1) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 phi1) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (.f64 #s(literal -1/12 binary64) (sin.f64 phi1)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))))))))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal -1/4 binary64) (cos.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/12 binary64) (.f64 phi2 (sin.f64 phi1)))) (.f64 #s(literal -1/4 binary64) (cos.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
#s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (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)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
#s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
#s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1))))) (.f64 #s(literal -1/4 binary64) (cos.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
#s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (fma.f64 #s(literal 1/12 binary64) (.f64 phi2 (sin.f64 phi1)) (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1)))))) (.f64 #s(literal -1/4 binary64) (cos.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
#s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (+.f64 #s(literal 1/2 binary64) (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 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (+.f64 #s(literal 1/2 binary64) (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))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (*.f64 (cos.f64 phi1) (sin.f64 lambda1))))))))))
#s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (+.f64 #s(literal 1/2 binary64) (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))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (fma.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 #s(literal 1/24 binary64) (.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 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (+.f64 #s(literal 1/2 binary64) (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))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (fma.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (.f64 #s(literal 1/1440 binary64) (.f64 lambda2 (*.f64 (cos.f64 phi1) (sin.f64 lambda1))))))))))))))))
#s(approx (* 1/2 (cos (- phi1 phi2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (sin.f64 phi1)))))
#s(approx (* 1/2 (cos (- phi1 phi2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (.f64 phi2 (cos.f64 phi1)) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi1))))))
#s(approx (* 1/2 (cos (- phi1 phi2))) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi1) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal -1/12 binary64) (.f64 phi2 (sin.f64 phi1)))))))))
#s(approx (cos (- phi1 phi2)) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))
#s(approx (cos (- phi1 phi2)) (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (cos.f64 phi1))) (.f64 #s(literal -1 binary64) (sin.f64 phi1))))))
#s(approx (cos (- phi1 phi2)) (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi1) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1))))) (*.f64 #s(literal -1 binary64) (sin.f64 phi1))))))
#s(approx (- phi1 phi2) (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 phi2 (sin.f64 phi1)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))) (.f64 phi2 (fma.f64 #s(literal 1/4 binary64) (/.f64 (sin.f64 phi1) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))) (.f64 phi2 (fma.f64 #s(literal 1/4 binary64) (/.f64 (sin.f64 phi1) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (.f64 #s(literal -1/12 binary64) (sin.f64 phi1))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))))))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (sin.f64 phi1)))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 phi1)) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))) (.f64 #s(literal -1/12 binary64) (sin.f64 phi1))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 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 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (sqrt.f64 (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 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (+.f64 (sqrt.f64 (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)))) (.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) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (+.f64 (sqrt.f64 (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)))) (.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) 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) 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) 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) lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (+.f64 (sqrt.f64 (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)))) (.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) 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) 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) 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) 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) 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) 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) 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) 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 (sin (* 1/2 (- phi1 phi2))) 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) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 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 (sin (* 1/2 (- phi1 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 (sin (* 1/2 (- phi1 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 (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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- 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 (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 phi2 (sin.f64 phi1)) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
#s(approx (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 phi2 (fma.f64 #s(literal 1/4 binary64) (/.f64 (sin.f64 phi1) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.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 phi1))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))))
#s(approx (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 phi2 (fma.f64 #s(literal 1/4 binary64) (/.f64 (sin.f64 phi1) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/12 binary64) (sin.f64 phi1)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.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 phi1))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.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 phi1))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (sin.f64 phi1))))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi1) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (sin.f64 phi1) (.f64 phi2 (-.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 phi1)) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi1) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (sin.f64 phi1) (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal -1/12 binary64) (.f64 phi2 (sin.f64 phi1)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (sin.f64 phi1))))))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (.f64 phi2 (cos.f64 phi1)) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi1)))))))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi1) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/4 binary64) (cos.f64 phi1) (.f64 #s(literal -1/12 binary64) (.f64 phi2 (sin.f64 phi1))))))))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (fma.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.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) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))))
#s(approx (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2)))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
#s(approx (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal 1/48 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
#s(approx (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2)))) (.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/3840 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/48 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))))
#s(approx (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2)))) (.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/3840 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal 1/645120 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))))))
#s(approx (* (cos phi2) (pow (sin (* 1/2 (- lambda1 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) (-.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 phi2) (pow (sin (* 1/2 (- lambda1 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) (-.f64 lambda1 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) (-.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 phi2) (pow (sin (* 1/2 (- lambda1 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) (-.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)) (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 (cos (* 1/2 phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
#s(approx (- phi1 phi2) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64))))
#s(approx (* 1/2 (- phi1 phi2)) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))))
#s(approx (* R (* 2 (atan2 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))) #s(literal 2 binary64))))))))
#s(approx (* 2 (atan2 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) #s(literal 2 binary64)))))))
#s(approx (atan2 (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)))) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))) #s(literal 2 binary64))))))
#s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) #s(literal 2 binary64))))
#s(approx (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) #s(literal 2 binary64)))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))
#s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (-.f64 (+.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 lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2))))))
#s(approx (* 1/2 (cos (- phi1 phi2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))
#s(approx (cos (- phi1 phi2)) (cos.f64 (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))
#s(approx (- phi1 phi2) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2))))))
#s(approx (sqrt (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))))) #s(literal 2 binary64)))))
#s(approx (- 1 (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.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 (- 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 (sqrt (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64))))
#s(approx (pow (sin (* 1/2 (- phi1 phi2))) 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 (* 1/2 (- phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))
#s(approx (* 1/2 (- phi1 phi2)) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 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)))))
#s(approx (+ (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 (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))))))) (.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))))
#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/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))))))) (.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.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/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))))) (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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.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)))) #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 (fma.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)))) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.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)))) #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 (fma.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)))) #s(literal 2 binary64))))))))
#s(approx (atan2 (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.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)))) #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 (fma.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)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- 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 (fma.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)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.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)))) #s(literal 2 binary64))))
#s(approx (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
#s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (fma.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)))) #s(literal 2 binary64))))))
#s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.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 (fma.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)))) #s(literal 2 binary64)))))

Calls

15 calls:

Time	Variable	Point
55.0ms	lambda1	0
32.0ms	phi1	-inf
25.0ms	phi1	inf
22.0ms	lambda2	inf
21.0ms	phi2	inf

rewrite324.0ms (0.9%)

Memory

34.7MiB live, 410.4MiB allocated; 52ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	190	4244
0	319	3513
1	1282	2872
0	4172	2858

Stop Event

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

Counts

128 → 1 394

Calls

Call 1

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

Outputs
(.f64 (.f64 R #s(literal 2 binary64)) (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 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))) #s(literal 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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))) #s(literal 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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))))
#s(literal 2 binary64)
(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 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))))
(sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.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 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.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 (.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (+.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.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 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (.f64 (.f64 (neg.f64 (.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 (neg.f64 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (neg.f64 (.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 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (.f64 (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.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 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (.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)))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (fma.f64 (.f64 (neg.f64 (.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 (neg.f64 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (neg.f64 (.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 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (fma.f64 (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 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 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #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 phi2) (cos.f64 phi1))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(fma.f64 (.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.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 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (neg.f64 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.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 (cos.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 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1))))
(+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (neg.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 phi1 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(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)))))
phi1
(.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))
(.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (neg.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 phi2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(cos.f64 (neg.f64 (neg.f64 phi2)))
(cos.f64 (neg.f64 (fabs.f64 phi2)))
(cos.f64 (fabs.f64 (fabs.f64 phi2)))
(cos.f64 (neg.f64 phi2))
(cos.f64 (fabs.f64 phi2))
(cos.f64 phi2)
(+.f64 (.f64 (sin.f64 phi2) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
phi2
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (pow.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 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #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 (sin.f64 (-.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (*.f64 lambda1 #s(literal 1/2 binary64)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #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 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (.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 2 binary64)) (.f64 #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 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))))) (.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.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 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))) (pow.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 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (-.f64 (.f64 (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (pow.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 2 binary64)) (.f64 #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 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.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 2 binary64)) (.f64 #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 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #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 (sin.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 2 binary64)) (pow.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 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))) (pow.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 (-.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 lambda1 lambda2))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.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) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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 lambda1 lambda2)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(neg.f64 (fma.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)))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 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 2 binary64)) (.f64 #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 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))) (pow.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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 #s(literal 1/2 binary64) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.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)))))) (.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 (neg.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 (-.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 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (neg.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 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 (neg.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.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 2 binary64)) (.f64 (neg.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 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)))) (neg.f64 (.f64 (sin.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 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (neg.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 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 (neg.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.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 (neg.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (.f64 (neg.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 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)))) (neg.f64 (.f64 (sin.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 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (sin.f64 (fma.f64 lambda1 #s(literal 1/2 binary64) (*.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 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (+.f64 (pow.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 (.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 (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 (+.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 lambda1 #s(literal 1/2 binary64) (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64) (.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 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 lambda1 #s(literal 1/2 binary64) (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64) (neg.f64 (.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 (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 (.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 (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 (.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 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.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 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))
(.f64 (+.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 lambda2 #s(literal 1/2 binary64))))) #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 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(/.f64 (neg.f64 (+.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 lambda1 #s(literal 1/2 binary64) (.f64 lambda2 #s(literal 1/2 binary64)))))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (fma.f64 lambda2 #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (fma.f64 lambda1 #s(literal 1/2 binary64) (fma.f64 lambda2 #s(literal 1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 lambda2 #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 lambda1 #s(literal 1/2 binary64)))) (cos.f64 (+.f64 (fma.f64 lambda2 #s(literal 1/2 binary64) (.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 lambda1 #s(literal 1/2 binary64)) (neg.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (sin.f64 (fma.f64 lambda1 #s(literal 1/2 binary64) (neg.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 lambda1 #s(literal 1/2 binary64) (*.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 lambda1 #s(literal 1/2 binary64) (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 lambda1 #s(literal 1/2 binary64) (.f64 lambda2 #s(literal 1/2 binary64)))))))
(+.f64 (/.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (sin.f64 (fma.f64 lambda1 #s(literal 1/2 binary64) (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(sin.f64 (+.f64 (neg.f64 (.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 lambda2 #s(literal 1/2 binary64) (*.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 (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 (neg.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))) (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 lambda2 #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) lambda2)
(/.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))
#s(literal 1/2 binary64)
lambda2
(sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))
(*.f64 lambda1 #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) lambda1)
(/.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
(.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 (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 (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)) (.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 (fma.f64 lambda2 #s(literal 1/2 binary64) (*.f64 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 (fma.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))))
(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 (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 (neg.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 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)))))
(sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (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 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))) (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.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 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.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 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #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 (-.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 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (.f64 (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)) (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 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (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 (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (-.f64 (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))))) (fma.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (fma.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(/.f64 (+.f64 (pow.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) #s(literal 3 binary64)) (pow.f64 (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)) #s(literal 3 binary64))) (fma.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (-.f64 (.f64 (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)) (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 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (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 (pow.f64 (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (-.f64 (.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (.f64 (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))) #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (-.f64 (.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/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 1 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 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(neg.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 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 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (pow.f64 (.f64 (neg.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 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (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))))))) (pow.f64 (neg.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 (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 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))
(+.f64 (-.f64 (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 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (pow.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(+.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (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 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 #s(literal 1 binary64) (-.f64 phi1 phi2)))))
(+.f64 #s(literal 1/2 binary64) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.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))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(.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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(/.f64 (fma.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 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.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 #s(literal -1/2 binary64) phi2)) (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 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (neg.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.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 #s(literal -1/2 binary64) phi2)) (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 (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 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (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 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(/.f64 (-.f64 (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 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (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))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (fma.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.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 #s(literal -1/2 binary64) phi2)) (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 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (fma.f64 (neg.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.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 #s(literal -1/2 binary64) phi2)) (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 (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)) (pow.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (+.f64 (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)) (fma.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (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 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))
(/.f64 (-.f64 (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)) (pow.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 3 binary64))) (+.f64 (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)) (fma.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (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))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (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))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (-.f64 (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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (+.f64 (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 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(sin.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) phi1)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(fma.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64) (.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) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.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 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.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))))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (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 #s(literal -1/2 binary64) phi2)) (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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (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))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(sin.f64 (+.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.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 #s(literal 1/2 binary64) phi1 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(cos.f64 (neg.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(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 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(cos.f64 (*.f64 (fabs.f64 phi1) #s(literal 1/2 binary64)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(*.f64 #s(literal 1/2 binary64) phi1)
(*.f64 phi1 #s(literal 1/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))
(neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 phi2 #s(literal 1/2 binary64) (PI.f64)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))
(cos.f64 (fma.f64 phi2 #s(literal 1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(*.f64 (neg.f64 phi2) #s(literal 1/2 binary64))
(*.f64 #s(literal -1/2 binary64) phi2)
(*.f64 phi2 #s(literal -1/2 binary64))
(/.f64 (neg.f64 phi2) #s(literal 2 binary64))
(neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
#s(literal -1/2 binary64)
(.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))
(.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
(/.f64 (neg.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 phi2 #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (+.f64 (fma.f64 phi2 #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) phi1) (fma.f64 phi2 #s(literal 1/2 binary64) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (fma.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 #s(literal 1/2 binary64) phi1) (.f64 (fabs.f64 phi2) #s(literal 1/2 binary64)))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal -1/2 binary64) phi2))) (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))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (.f64 phi2 #s(literal 1/2 binary64)))))))
(+.f64 (/.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (/.f64 (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 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 #s(literal -1/2 binary64) phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 phi2 #s(literal 1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (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 (neg.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
(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 phi2 #s(literal 1/2 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (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 phi2 #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) phi2)
(/.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))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(.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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #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 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))))
(sqrt.f64 (-.f64 #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 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) #s(literal 1 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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
#s(literal 1 binary64)
(.f64 (.f64 R #s(literal 2 binary64)) (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 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) #s(literal 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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 (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(.f64 (pow.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal -1/2 binary64)))
(sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))))
(.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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (neg.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(.f64 (pow.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64)))
(.f64 (pow.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(.f64 (pow.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(pow.f64 (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(pow.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(sqrt.f64 (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(fabs.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64)))
(exp.f64 (.f64 (log.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) #s(literal 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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 (sqrt.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(.f64 (pow.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal -1/2 binary64)))
(sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))))
(.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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (neg.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(.f64 (pow.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64)) (pow.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64)))
(.f64 (pow.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(.f64 (pow.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(pow.f64 (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(pow.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(sqrt.f64 (.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(fabs.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64)))
(exp.f64 (.f64 (log.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1))) #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)))) #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)))) #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)))) #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (.f64 #s(approx (+ 1/2 (+ ( -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))) (-.f64 #s(approx (+ 1/2 (+ ( -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))
(/.f64 (-.f64 (.f64 #s(approx (+ 1/2 (+ ( -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64))) (.f64 (neg.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 #s(approx (+ 1/2 (+ ( -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1))) #s(literal 3 binary64))) (fma.f64 #s(approx (+ 1/2 (+ ( -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))) (.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))))
(/.f64 (+.f64 (pow.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 #s(approx (+ 1/2 (+ ( -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (-.f64 (.f64 (neg.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 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(/.f64 (-.f64 (.f64 #s(approx (+ 1/2 (+ ( -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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(approx (+ 1/2 (+ ( -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (pow.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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(approx (+ 1/2 (+ ( -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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(approx (+ 1/2 (+ ( -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(neg.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(approx (+ 1/2 (+ ( -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64))))
(-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(+.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))
(+.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (neg.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
#s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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 (cos.f64 (-.f64 phi2 phi1)) #s(literal 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 (-.f64 phi1 phi2)) (*.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 phi2 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 (-.f64 phi1 phi2)) (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 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi2) (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)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(fma.f64 (cos.f64 phi2) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.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 phi1)))
(fma.f64 (cos.f64 phi1) (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(-.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 phi2))))
(cos.f64 (neg.f64 (neg.f64 (-.f64 phi1 phi2))))
(cos.f64 (neg.f64 (fabs.f64 (-.f64 phi2 phi1))))
(cos.f64 (fabs.f64 (fabs.f64 (-.f64 phi2 phi1))))
(cos.f64 (neg.f64 (-.f64 phi1 phi2)))
(cos.f64 (fabs.f64 (-.f64 phi2 phi1)))
(cos.f64 (-.f64 phi2 phi1))
(cos.f64 (-.f64 phi1 phi2))
(+.f64 (.f64 (sin.f64 (-.f64 phi1 phi2)) (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 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.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 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 (neg.f64 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 phi1 (neg.f64 phi2))
(.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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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 (-.f64 #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 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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 (-.f64 #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 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal -1/2 binary64)))
(sin.f64 (acos.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #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 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(sqrt.f64 (-.f64 #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 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(cos.f64 (asin.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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 (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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 (-.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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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 (-.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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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 (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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) (-.f64 (.f64 (neg.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(.f64 (.f64 R #s(literal 2 binary64)) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (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 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #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 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))))
(.f64 (.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 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #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 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))) #s(literal 2 binary64)) R)
(.f64 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 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #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 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))) #s(literal 2 binary64)))
(.f64 (+.f64 #s(literal 1 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 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #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 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (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 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #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 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))))) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (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 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #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 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))))
(.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 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #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 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (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 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #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 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))))
(/.f64 (-.f64 (.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 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #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 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (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 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #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 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))))) (.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 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #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 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (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 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #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 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))))) (-.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 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #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 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (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 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #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 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))))))
(/.f64 (+.f64 (pow.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 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #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 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))) #s(literal 3 binary64)) (pow.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 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #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 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))) #s(literal 3 binary64))) (fma.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 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #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 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (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 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #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 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))) (-.f64 (.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 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #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 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (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 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #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 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))))) (.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 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #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 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (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 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #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 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))))))))
(+.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 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #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 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (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 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #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 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))))
(atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (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 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #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 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (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 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(.f64 (pow.f64 (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 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (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 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (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 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (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 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) #s(literal -1/2 binary64)))
(sqrt.f64 (.f64 (sqrt.f64 (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 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (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 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))))
(sqrt.f64 (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 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))
(fabs.f64 (neg.f64 (sqrt.f64 (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 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))))
(fabs.f64 (sqrt.f64 (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 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(exp.f64 (.f64 (log.f64 (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 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.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 #s(literal -1/2 binary64) lambda2)))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 #s(literal -1/2 binary64) lambda2)))))))) (.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 #s(literal -1/2 binary64) lambda2)))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 #s(literal -1/2 binary64) lambda2)))))))) (.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 #s(literal -1/2 binary64) lambda2)))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (.f64 (.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 #s(literal -1/2 binary64) lambda2)))))) (.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 #s(literal -1/2 binary64) lambda2)))))))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 #s(literal -1/2 binary64) lambda2))))))))
(/.f64 (-.f64 (.f64 (.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 #s(literal -1/2 binary64) lambda2)))))) (.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 #s(literal -1/2 binary64) lambda2))))))) (.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (+.f64 (.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 #s(literal -1/2 binary64) lambda2)))))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.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 #s(literal -1/2 binary64) lambda2)))))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 (.f64 (.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 #s(literal -1/2 binary64) lambda2)))))) (.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 #s(literal -1/2 binary64) lambda2))))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 #s(literal -1/2 binary64) lambda2))))))))))
(/.f64 (-.f64 (pow.f64 (.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 #s(literal -1/2 binary64) lambda2)))))) #s(literal 3 binary64)) (pow.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.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 #s(literal -1/2 binary64) lambda2)))))) (.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 #s(literal -1/2 binary64) lambda2)))))) (fma.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (.f64 (.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 #s(literal -1/2 binary64) lambda2)))))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (.f64 (.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 #s(literal -1/2 binary64) lambda2)))))) (.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 #s(literal -1/2 binary64) lambda2))))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (-.f64 (.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 #s(literal -1/2 binary64) lambda2)))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 (.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 #s(literal -1/2 binary64) lambda2)))))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (.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 #s(literal -1/2 binary64) lambda2)))))) (.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 #s(literal -1/2 binary64) lambda2)))))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (.f64 (.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 #s(literal -1/2 binary64) lambda2)))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.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 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) lambda2)))))))
(fma.f64 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #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 #s(literal -1/2 binary64) lambda2)))))))
(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 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.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 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal -1/2 binary64) lambda2)))))))
(fma.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) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(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 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(-.f64 (.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 #s(literal -1/2 binary64) lambda2)))))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))
(+.f64 (.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 #s(literal -1/2 binary64) lambda2)))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 #s(literal -1/2 binary64) lambda2)))))))
(.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) lambda2))))) (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 #s(literal -1/2 binary64) lambda2))))))
(.f64 (fabs.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (fabs.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))
(.f64 (neg.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (neg.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))
(.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 1 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
(.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(.f64 (sin.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))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 #s(literal -1/2 binary64) lambda2))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) lambda2 (*.f64 #s(literal -1/2 binary64) 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 #s(literal -1/2 binary64) lambda2)))))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 2 binary64)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))
(*.f64 #s(literal -1/2 binary64) lambda2)
(*.f64 lambda2 #s(literal -1/2 binary64))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (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 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))) (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.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 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.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 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #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 (-.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 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (.f64 (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)) (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 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (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 (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (-.f64 (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))))) (fma.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (fma.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(/.f64 (+.f64 (pow.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) #s(literal 3 binary64)) (pow.f64 (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)) #s(literal 3 binary64))) (fma.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (-.f64 (.f64 (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)) (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 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (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 (pow.f64 (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (-.f64 (.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (.f64 (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))) #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (-.f64 (.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/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 1 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 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(neg.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 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 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (pow.f64 (.f64 (neg.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 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (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))))))) (pow.f64 (neg.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 (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 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))
(+.f64 (-.f64 (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 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (pow.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(+.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (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 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 #s(literal 1 binary64) (-.f64 phi1 phi2)))))
(+.f64 #s(literal 1/2 binary64) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.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))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(.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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(/.f64 (fma.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 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.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 #s(literal -1/2 binary64) phi2)) (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 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (neg.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.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 #s(literal -1/2 binary64) phi2)) (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 (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 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (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 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(/.f64 (-.f64 (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 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (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))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (fma.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.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 #s(literal -1/2 binary64) phi2)) (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 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (fma.f64 (neg.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.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 #s(literal -1/2 binary64) phi2)) (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 (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)) (pow.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (+.f64 (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)) (fma.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (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 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))
(/.f64 (-.f64 (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)) (pow.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 3 binary64))) (+.f64 (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)) (fma.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (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))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (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))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (-.f64 (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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (+.f64 (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 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(sin.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) phi1)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(fma.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64) (.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) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.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 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.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))))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (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 #s(literal -1/2 binary64) phi2)) (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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (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))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(.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 (neg.f64 (-.f64 phi1 phi2)) #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 #s(literal 1 binary64) phi1) phi2) #s(literal 2 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)))) (fma.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) (fma.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 (.f64 phi1 #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) phi2)) #s(literal 4 binary64))
(/.f64 (neg.f64 (neg.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 phi1 phi2)) #s(literal -2 binary64))
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (neg.f64 (-.f64 phi1 phi2))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal -1/2 binary64) phi2))
(fma.f64 phi1 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) phi2))
(-.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 phi2 #s(literal 1/2 binary64)))
(+.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal -1/2 binary64) phi2))
(.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)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))) #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)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))) #s(literal 1 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)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))) #s(literal 1/2 binary64))) #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)) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi1))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #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 phi1))) (neg.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #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)) (cos.f64 phi1)))))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))) (+.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.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 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))) (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))) (-.f64 (.f64 (neg.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))) (neg.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #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)) (cos.f64 phi1)))))))
(/.f64 (-.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) 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)) (cos.f64 phi1)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #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)) (cos.f64 phi1)) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #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 phi1)) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))))
(neg.f64 (-.f64 (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64)))))
(fma.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi1)))
(fma.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))
(fma.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi1)))
(fma.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi1)))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (neg.f64 (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))) (*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))
(-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi1)))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #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)) (cos.f64 phi1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 1 binary64) phi1))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (fabs.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (fabs.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (sin.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))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) phi1))) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) phi1))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) phi1)))))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) phi1))) #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) phi1))) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) phi1)))) (.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) phi1)))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (-.f64 (.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64)))))))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal 1/2 binary64) phi1))) (cos.f64 (*.f64 #s(literal 1 binary64) phi1))) #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) phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) 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 #s(literal 1 binary64) 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 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))))))
(neg.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64)))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) phi1))))
(+.f64 #s(literal 1/2 binary64) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))))
(.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) phi1)))
(/.f64 (cos.f64 (*.f64 #s(literal 1 binary64) phi1)) #s(literal 2 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #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) phi1)) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64)))))))
(sin.f64 (+.f64 (neg.f64 (.f64 #s(literal 1 binary64) phi1)) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 #s(literal 1 binary64) (fabs.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 #s(literal 1 binary64) phi1 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 (.f64 #s(literal 1 binary64) phi1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) (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) phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64))))
(cos.f64 (neg.f64 (neg.f64 (*.f64 #s(literal 1 binary64) phi1))))
(cos.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (fabs.f64 phi1))))
(cos.f64 (fabs.f64 (*.f64 #s(literal 1 binary64) (fabs.f64 phi1))))
(cos.f64 (neg.f64 (*.f64 #s(literal 1 binary64) phi1)))
(cos.f64 (*.f64 #s(literal 1 binary64) (fabs.f64 phi1)))
(cos.f64 (*.f64 #s(literal 1 binary64) phi1))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1 binary64) phi1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/2 binary64) phi1))
(*.f64 #s(literal 1 binary64) phi1)
(.f64 (.f64 #s(literal 1/2 binary64) phi1) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal 1/2 binary64) phi1))) (-.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal 1/2 binary64) phi1)))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) phi1) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) phi1) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal 1/2 binary64) phi1) (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal 1/2 binary64) phi1)))))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal 1/2 binary64) phi1))
(fma.f64 phi1 #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) phi1))
(*.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64))) #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 #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 #s(literal -1/2 binary64) #s(literal -1/2 binary64)) (.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) (*.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)) (.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 #s(literal -1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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 lambda1 lambda2)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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)))))
(/.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)))))
(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 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
(sin.f64 (+.f64 (neg.f64 (neg.f64 (-.f64 lambda1 lambda2))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 (-.f64 lambda1 lambda2)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (neg.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 (neg.f64 (-.f64 lambda1 lambda2))) (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 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(cos.f64 (neg.f64 (neg.f64 (neg.f64 (-.f64 lambda1 lambda2)))))
(cos.f64 (neg.f64 (fabs.f64 (-.f64 lambda1 lambda2))))
(cos.f64 (neg.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))))
(cos.f64 (fabs.f64 (fabs.f64 (-.f64 lambda1 lambda2))))
(cos.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))))
(cos.f64 (neg.f64 (neg.f64 (-.f64 lambda1 lambda2))))
(cos.f64 (fabs.f64 (-.f64 lambda1 lambda2)))
(cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
(cos.f64 (neg.f64 (-.f64 lambda1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (.f64 (sin.f64 (neg.f64 (-.f64 lambda1 lambda2))) (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 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (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 lambda1 lambda2) #s(literal -1 binary64))
(*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))
(neg.f64 (-.f64 lambda1 lambda2))
#s(literal -1 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 lambda2)
(+.f64 lambda1 (neg.f64 lambda2))
(.f64 (.f64 R #s(literal 2 binary64)) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))))))) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))))))
(.f64 (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))))))
(/.f64 (-.f64 (.f64 (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1))))))) (.f64 (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))))))) (-.f64 (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1))))))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))))) #s(literal 3 binary64)) (pow.f64 (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))))) #s(literal 3 binary64))) (fma.f64 (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))))) (-.f64 (.f64 (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1))))))) (.f64 (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1))))))))))
(+.f64 (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))))))
(atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1))))))
(.f64 (pow.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)))
(sqrt.f64 (.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(fabs.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))
(exp.f64 (.f64 (log.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.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 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.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 (.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (+.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.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 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (.f64 (.f64 (neg.f64 (.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 (neg.f64 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (neg.f64 (.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 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (.f64 (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.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 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (.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)))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (fma.f64 (.f64 (neg.f64 (.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 (neg.f64 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (neg.f64 (.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 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (fma.f64 (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 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 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #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 phi2) (cos.f64 phi1))))
(fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(fma.f64 (.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.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 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(fma.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (neg.f64 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.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 (cos.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 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1))))
(+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (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 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))) (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.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 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.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 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #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 (-.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 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (.f64 (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)) (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 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (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 (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (-.f64 (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))))) (fma.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (fma.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(/.f64 (+.f64 (pow.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) #s(literal 3 binary64)) (pow.f64 (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)) #s(literal 3 binary64))) (fma.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (-.f64 (.f64 (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)) (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 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (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 (pow.f64 (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (-.f64 (.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (.f64 (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))) #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (-.f64 (.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/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 1 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 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(neg.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 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 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (pow.f64 (.f64 (neg.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 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (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))))))) (pow.f64 (neg.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 (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 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))
(+.f64 (-.f64 (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 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (pow.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(+.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (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 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 #s(literal 1 binary64) (-.f64 phi1 phi2)))))
(+.f64 #s(literal 1/2 binary64) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.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))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(.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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(/.f64 (fma.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 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.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 #s(literal -1/2 binary64) phi2)) (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 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (neg.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.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 #s(literal -1/2 binary64) phi2)) (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 (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 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (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 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(/.f64 (-.f64 (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 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (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))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (fma.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.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 #s(literal -1/2 binary64) phi2)) (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 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (fma.f64 (neg.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.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 #s(literal -1/2 binary64) phi2)) (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 (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)) (pow.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (+.f64 (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)) (fma.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (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 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))
(/.f64 (-.f64 (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)) (pow.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 3 binary64))) (+.f64 (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)) (fma.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (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))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (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))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (-.f64 (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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (+.f64 (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 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(sin.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) phi1)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(fma.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64) (.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) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.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 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.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))))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (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 #s(literal -1/2 binary64) phi2)) (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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (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))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(.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 (neg.f64 (-.f64 phi1 phi2)) #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 #s(literal 1 binary64) phi1) phi2) #s(literal 2 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)))) (fma.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) (fma.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 (.f64 phi1 #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) phi2)) #s(literal 4 binary64))
(/.f64 (neg.f64 (neg.f64 (-.f64 phi1 phi2))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 phi1 phi2)) #s(literal -2 binary64))
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (neg.f64 (-.f64 phi1 phi2))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))
(fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 #s(literal -1/2 binary64) phi2))
(fma.f64 phi1 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) phi2))
(-.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 phi2 #s(literal 1/2 binary64)))
(+.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal -1/2 binary64) phi2))
(.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.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 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(.f64 (cos.f64 phi1) (.f64 (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 (cos.f64 phi2) (cos.f64 phi1)))
(*.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))
(*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(/.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal -2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) phi1)) (cos.f64 (-.f64 (neg.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) phi1)) (cos.f64 (-.f64 (fabs.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 (neg.f64 phi1))) (cos.f64 (-.f64 phi2 (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 (fabs.f64 phi1))) (cos.f64 (-.f64 phi2 (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) phi2)) (cos.f64 (-.f64 (neg.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) phi2)) (cos.f64 (-.f64 (fabs.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 (fabs.f64 phi2))) (cos.f64 (-.f64 phi1 (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi2))) (sin.f64 (+.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi2))) (sin.f64 (+.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2))) #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)) (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 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))))
(+.f64 (/.f64 (cos.f64 (+.f64 phi1 phi2)) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(+.f64 (/.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.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)))))) (.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 (neg.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 (-.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 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (neg.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 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 (neg.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.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 2 binary64)) (.f64 (neg.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 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)))) (neg.f64 (.f64 (sin.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 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (neg.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 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 (neg.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.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 (neg.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (.f64 (neg.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 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)))) (neg.f64 (.f64 (sin.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 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (sin.f64 (fma.f64 lambda1 #s(literal 1/2 binary64) (*.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 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (+.f64 (pow.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 (.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 (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 (+.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 lambda1 #s(literal 1/2 binary64) (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64) (.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 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 lambda1 #s(literal 1/2 binary64) (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64) (neg.f64 (.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 (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 (.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 (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 (.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 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.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 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 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 (neg.f64 (-.f64 lambda1 lambda2)) #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 (.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 (neg.f64 (neg.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 lambda1 lambda2)) #s(literal -2 binary64))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (neg.f64 (-.f64 lambda1 lambda2))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(fma.f64 lambda1 #s(literal 1/2 binary64) (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))
(fma.f64 #s(literal 1/2 binary64) lambda1 (/.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 lambda1 #s(literal 1/2 binary64)) (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))
(.f64 (pow.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))) #s(literal -1/2 binary64)))
(sqrt.f64 (.f64 (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))))))
(sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))))))
(fabs.f64 (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1))))))
(exp.f64 (.f64 (log.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1))))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (.f64 (.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (-.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (.f64 (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))))) (-.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (+.f64 (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))) #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1))))))))
(/.f64 (-.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (+.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))))))
(neg.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))
(fma.f64 (fabs.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fabs.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (fabs.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fabs.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fma.f64 (neg.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(fma.f64 (neg.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(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 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(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 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1))))
(+.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (neg.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2) (cos.f64 phi1)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 1 binary64))) #s(literal 1 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (fabs.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (fabs.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.f64 (neg.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(pow.f64 (cos.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(/.f64 (fma.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal 2 binary64) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (+.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.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(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))))
(/.f64 (-.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))) #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))) (.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))))))))
(/.f64 (-.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (fma.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (neg.f64 (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) (cos.f64 (-.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (*.f64 (-.f64 phi1 phi2) #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 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi1 phi2))) #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 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(fma.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))
(-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.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 1 binary64) (-.f64 phi1 phi2)))))
(-.f64 #s(literal 1/2 binary64) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi1 phi2))) #s(literal 1/2 binary64)))
(.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))))
(/.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (+.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi1 phi2))) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi1 phi2))) #s(literal 1/2 binary64)))))))
(sin.f64 (+.f64 (neg.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 #s(literal 1 binary64) (fabs.f64 (-.f64 phi2 phi1)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 #s(literal 1 binary64) (-.f64 phi1 phi2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi1 phi2))) #s(literal 1/2 binary64))))
(cos.f64 (neg.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))))
(cos.f64 (neg.f64 (fabs.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))))
(cos.f64 (fabs.f64 (fabs.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))))
(cos.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))))
(cos.f64 (fabs.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))))
(cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 2 binary64))
(*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))
(.f64 #s(literal 2 binary64) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(/.f64 (fma.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal -2 binary64) (neg.f64 (-.f64 phi1 phi2))) #s(literal -2 binary64))
(/.f64 (fma.f64 #s(literal 1 binary64) (-.f64 phi1 phi2) (-.f64 phi1 phi2)) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (-.f64 phi1 phi2)) #s(literal -2 binary64) (*.f64 (neg.f64 (-.f64 phi1 phi2)) #s(literal -2 binary64))) #s(literal 4 binary64))
(/.f64 (fma.f64 (neg.f64 (-.f64 phi1 phi2)) #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 (neg.f64 (-.f64 phi1 phi2)) #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 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (-.f64 (.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (neg.f64 (-.f64 phi1 phi2)) (neg.f64 (-.f64 phi1 phi2))) #s(literal -2 binary64))
(/.f64 (+.f64 (-.f64 phi1 phi2) (-.f64 phi1 phi2)) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (-.f64 phi1 phi2)) #s(literal -2 binary64) (*.f64 #s(literal -2 binary64) (neg.f64 (-.f64 phi1 phi2)))) #s(literal 4 binary64))
(/.f64 (fma.f64 (neg.f64 (-.f64 phi1 phi2)) #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) (neg.f64 (-.f64 phi1 phi2)))) #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))
(fma.f64 (neg.f64 (-.f64 phi1 phi2)) #s(literal -1/2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(fma.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2) (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(+.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #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 phi2) (cos.f64 phi1)))
(.f64 (.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 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (cos.f64 phi1) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (pow.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 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #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 (sin.f64 (-.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (*.f64 lambda1 #s(literal 1/2 binary64)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #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 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (.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 2 binary64)) (.f64 #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 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))))) (.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.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 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))) (pow.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 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (-.f64 (.f64 (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (pow.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 2 binary64)) (.f64 #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 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.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 2 binary64)) (.f64 #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 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #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 (sin.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 2 binary64)) (pow.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 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))) (pow.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 (-.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 lambda1 lambda2))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.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) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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 lambda1 lambda2)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(neg.f64 (fma.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)))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 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 2 binary64)) (.f64 #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 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))) (pow.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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 #s(literal 1/2 binary64) (neg.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) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (+.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
(sin.f64 (+.f64 (neg.f64 (neg.f64 (-.f64 lambda1 lambda2))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 (-.f64 lambda1 lambda2)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (neg.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 (neg.f64 (-.f64 lambda1 lambda2))) (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 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(cos.f64 (neg.f64 (neg.f64 (neg.f64 (-.f64 lambda1 lambda2)))))
(cos.f64 (neg.f64 (fabs.f64 (-.f64 lambda1 lambda2))))
(cos.f64 (neg.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))))
(cos.f64 (fabs.f64 (fabs.f64 (-.f64 lambda1 lambda2))))
(cos.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))))
(cos.f64 (neg.f64 (neg.f64 (-.f64 lambda1 lambda2))))
(cos.f64 (fabs.f64 (-.f64 lambda1 lambda2)))
(cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
(cos.f64 (neg.f64 (-.f64 lambda1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (.f64 (sin.f64 (neg.f64 (-.f64 lambda1 lambda2))) (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 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (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 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) #s(literal 2 binary64))
(*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))
(.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(/.f64 (fma.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) #s(literal -2 binary64) (neg.f64 (-.f64 lambda1 lambda2))) #s(literal -2 binary64))
(/.f64 (fma.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (-.f64 lambda1 lambda2)) #s(literal -2 binary64) (*.f64 (neg.f64 (-.f64 lambda1 lambda2)) #s(literal -2 binary64))) #s(literal 4 binary64))
(/.f64 (fma.f64 (neg.f64 (-.f64 lambda1 lambda2)) #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 (neg.f64 (-.f64 lambda1 lambda2)) #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 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (-.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (-.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (neg.f64 (-.f64 lambda1 lambda2))) #s(literal -2 binary64))
(/.f64 (+.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
(/.f64 (fma.f64 (neg.f64 (-.f64 lambda1 lambda2)) #s(literal -2 binary64) (*.f64 #s(literal -2 binary64) (neg.f64 (-.f64 lambda1 lambda2)))) #s(literal 4 binary64))
(/.f64 (fma.f64 (neg.f64 (-.f64 lambda1 lambda2)) #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) (neg.f64 (-.f64 lambda1 lambda2)))) #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))
(fma.f64 (neg.f64 (-.f64 lambda1 lambda2)) #s(literal -1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(fma.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(+.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 (-.f64 lambda1 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 (neg.f64 (-.f64 lambda1 lambda2)) #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 (.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 (neg.f64 (neg.f64 (-.f64 lambda1 lambda2))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 lambda1 lambda2)) #s(literal -2 binary64))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (neg.f64 (-.f64 lambda1 lambda2))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(fma.f64 lambda1 #s(literal 1/2 binary64) (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))
(fma.f64 #s(literal 1/2 binary64) lambda1 (/.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 lambda1 #s(literal 1/2 binary64)) (/.f64 (neg.f64 lambda2) #s(literal 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)) (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 (neg.f64 (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal -2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) phi1)) (cos.f64 (-.f64 (neg.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) phi1)) (cos.f64 (-.f64 (fabs.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 (neg.f64 phi1))) (cos.f64 (-.f64 phi2 (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 (fabs.f64 phi1))) (cos.f64 (-.f64 phi2 (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) phi2)) (cos.f64 (-.f64 (neg.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) phi2)) (cos.f64 (-.f64 (fabs.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (-.f64 phi1 (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 (fabs.f64 phi2))) (cos.f64 (-.f64 phi1 (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))) (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi1))) (sin.f64 (+.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi2))) (sin.f64 (+.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi2))) (sin.f64 (+.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2))) #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)) (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 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))))
(+.f64 (/.f64 (cos.f64 (+.f64 phi1 phi2)) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(+.f64 (/.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(.f64 (.f64 R #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))) #s(literal 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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))) #s(literal 2 binary64)))
(.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))))) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))))
(/.f64 (-.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))))))) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))))) (-.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))))))))
(/.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))) (-.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))))))) (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))))))))))
(+.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))))
(atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))))))
(.f64 (pow.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.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) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.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) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))))
(sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))
(fabs.f64 (neg.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))))
(fabs.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(exp.f64 (.f64 (log.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))))
(.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (-.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (.f64 (neg.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))) (neg.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (neg.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))))))
(/.f64 (+.f64 (pow.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (neg.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (fma.f64 (neg.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))) (neg.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (neg.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 (.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))))
(fma.f64 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (neg.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))
(+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (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 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))) (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.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 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.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 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #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 (-.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 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (.f64 (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)) (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 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (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 (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (-.f64 (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))))) (fma.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (fma.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(/.f64 (+.f64 (pow.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) #s(literal 3 binary64)) (pow.f64 (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)) #s(literal 3 binary64))) (fma.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (-.f64 (.f64 (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)) (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 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (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 (pow.f64 (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (-.f64 (.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))) (.f64 (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))) #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (-.f64 (.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/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 1 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 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))
(neg.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 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 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (pow.f64 (.f64 (neg.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 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (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))))))) (pow.f64 (neg.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 (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 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))
(+.f64 (-.f64 (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 2 binary64) (.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (pow.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))
(+.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 #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 (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 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.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 #s(literal 1 binary64) (-.f64 phi1 phi2)))))
(+.f64 #s(literal 1/2 binary64) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.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))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(.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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(/.f64 (fma.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 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.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 #s(literal -1/2 binary64) phi2)) (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 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (neg.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.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 #s(literal -1/2 binary64) phi2)) (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 (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 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (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 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(/.f64 (-.f64 (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 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (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))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (fma.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.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 #s(literal -1/2 binary64) phi2)) (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 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (fma.f64 (neg.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.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 #s(literal -1/2 binary64) phi2)) (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 (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)) (pow.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (+.f64 (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)) (fma.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (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 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))
(/.f64 (-.f64 (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)) (pow.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 3 binary64))) (+.f64 (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)) (fma.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (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))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (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))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (-.f64 (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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 3 binary64))) (+.f64 (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 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
(sin.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (*.f64 #s(literal 1/2 binary64) phi1)))
(sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))
(fma.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64) (.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) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.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 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(fma.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))))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (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 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (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 #s(literal -1/2 binary64) phi2)) (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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (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))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(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 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(*.f64 #s(literal 1/2 binary64) phi1)
(*.f64 phi1 #s(literal 1/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))
(sin.f64 (fma.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 phi2 #s(literal 1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (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 (neg.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
(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 phi2 #s(literal 1/2 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (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 phi2 #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) phi2)
(/.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))
(.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(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 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal -1/2 binary64) phi2) (fma.f64 #s(literal 1/2 binary64) phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (fma.f64 #s(literal 1/2 binary64) phi1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal -1/2 binary64) phi2))) (cos.f64 (+.f64 (fma.f64 #s(literal 1/2 binary64) phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) phi2) (neg.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (sin.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi1))))) #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 (.f64 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(sin.f64 (+.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.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 #s(literal 1/2 binary64) phi1 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(cos.f64 (neg.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
(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 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
(cos.f64 (*.f64 (fabs.f64 phi1) #s(literal 1/2 binary64)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi1))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(neg.f64 (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(sin.f64 (fma.f64 phi2 #s(literal 1/2 binary64) (PI.f64)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) phi2))
(cos.f64 (fma.f64 phi2 #s(literal 1/2 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(*.f64 (neg.f64 phi2) #s(literal 1/2 binary64))
(*.f64 #s(literal -1/2 binary64) phi2)
(*.f64 phi2 #s(literal -1/2 binary64))
(/.f64 (neg.f64 phi2) #s(literal 2 binary64))
(neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))
(.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (pow.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 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #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 (sin.f64 (-.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (*.f64 lambda1 #s(literal 1/2 binary64)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #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 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (.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 2 binary64)) (.f64 #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 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))))) (.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.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 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))) (pow.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 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (-.f64 (.f64 (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (pow.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 2 binary64)) (.f64 #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 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.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 2 binary64)) (.f64 #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 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #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 (sin.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 2 binary64)) (pow.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 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))) (pow.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 (-.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 lambda1 lambda2))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.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) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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 lambda1 lambda2)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))
(neg.f64 (fma.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)))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) #s(literal 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 2 binary64)) (.f64 #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 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))) (pow.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 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 #s(literal 1/2 binary64) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.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)))))) (.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 (neg.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 (-.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 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (neg.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 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 (neg.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.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 2 binary64)) (.f64 (neg.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 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)))) (neg.f64 (.f64 (sin.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 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (neg.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 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 (neg.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.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 (neg.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (.f64 (neg.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 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)))) (neg.f64 (.f64 (sin.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 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (sin.f64 (fma.f64 lambda1 #s(literal 1/2 binary64) (*.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 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (+.f64 (pow.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 (.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 (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 (+.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 lambda1 #s(literal 1/2 binary64) (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64) (.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 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (fma.f64 lambda1 #s(literal 1/2 binary64) (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64) (neg.f64 (.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 (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 (.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 (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 (.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 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.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 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))
(.f64 (pow.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))) #s(literal -1/2 binary64)))
(sqrt.f64 (.f64 (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))))
(sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))))
(fabs.f64 (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))))))
(exp.f64 (.f64 (log.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.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) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.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 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (neg.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))) (-.f64 #s(literal 1 binary64) (neg.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))))
(/.f64 (-.f64 (.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))))) (+.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))
(/.f64 (+.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.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 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (neg.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (.f64 #s(literal 1 binary64) (neg.f64 (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))))))
(/.f64 (-.f64 (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) #s(literal 3 binary64))) (fma.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #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) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1 binary64) (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.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) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.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) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (.f64 #s(literal 1 binary64) (+.f64 #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))))
(neg.f64 (-.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))))
(-.f64 #s(literal 1 binary64) (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))
(+.f64 #s(literal 1 binary64) (neg.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))

eval573.0ms (1.5%)

Memory: -18.0MiB live, 771.9MiB allocated; 136ms collecting garbage
Compiler: Compiled 339 689 to 19 848 computations (94.2% saved)

prune763.0ms (2.0%)

Memory

21.6MiB live, 1 021.3MiB allocated; 244ms collecting garbage

Pruning

203 alts after pruning (203 fresh and 0 done)

	Pruned	Kept	Total
New	1 825	117	1 942
Fresh	83	86	169
Picked	5	0	5
Done	0	0	0
Total	1 913	203	2 116

Accuracy

99.0%

Counts

2 116 → 203

Alt Table

Click to see full alt table

Status	Accuracy	Program
	60.3%	(.f64 (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	44.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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))))) (.f64 #s(literal 2 binary64) R))
	37.4%	(.f64 (.f64 (atan2.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) R)
	44.8%	(.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))) #s(literal 2 binary64)) R)
	26.9%	(.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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #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 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) #s(literal 2 binary64)) R)
	16.5%	(.f64 (.f64 (atan2.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))))) #s(literal 2 binary64)) R)
	34.3%	(.f64 (.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 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #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 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))) #s(literal 2 binary64)) R)
	26.9%	(.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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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) (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 2 binary64)))))))
	44.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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (fma.f64 #s(literal -1/2 binary64) (cos.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) 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 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	16.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))) (/.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)) #s(approx (pow (sin ( 1/2 phi1)) 2) (*.f64 #s(literal 1/4 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))))
	26.9%	(.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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 2 binary64)))))))
	61.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #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 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.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))))))))))
	60.3%	(.f64 R (.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 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) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	29.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64)))))))
	29.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64)))))))
	49.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) phi2)) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64)))))))
	59.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/2 binary64) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))) #s(literal 1/2 binary64) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))) #s(literal 2 binary64)))))))
	74.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))) #s(literal 2 binary64)))))))
	23.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))) #s(literal 2 binary64)))))))
	24.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) #s(literal 2 binary64)))))))
	43.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))) (sqrt.f64 #s(approx (- 1 (pow (sqrt (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))))
	38.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- phi1 phi2)))) (cos.f64 (neg.f64 phi2))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- phi1 phi2)))) (cos.f64 (neg.f64 phi2))))))) #s(literal 2 binary64)))))))
	42.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))) #s(literal 2 binary64)))))))
	13.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 phi1 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal -1 binary64) (-.f64 phi1 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) #s(literal 2 binary64)))))))
	37.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64)))))))
	37.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2))))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2))))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64)))))))
	26.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (/.f64 (-.f64 (pow.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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(approx (+ 1/2 (+ ( -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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(approx (+ 1/2 (+ ( -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (/.f64 (-.f64 (pow.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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(approx (+ 1/2 (+ ( -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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(approx (+ 1/2 (+ ( -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))) #s(literal 2 binary64)))))))
	26.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (/.f64 (-.f64 (.f64 #s(approx (+ 1/2 (+ ( -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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(approx (+ 1/2 (+ ( -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (/.f64 (-.f64 (.f64 #s(approx (+ 1/2 (+ ( -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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(approx (+ 1/2 (+ ( -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)))))))
	34.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))) #s(literal 2 binary64)))))))
	41.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))) #s(literal 2 binary64)))))))
	44.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))))) #s(literal 2 binary64)))))))
	32.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 phi2) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))) #s(literal 2 binary64)))))))
	25.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (/.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))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (/.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))))))) #s(literal 2 binary64)))))))
	32.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 #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))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 #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))))))) #s(literal 2 binary64)))))))
	15.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (-.f64 phi2 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) #s(literal 2 binary64)))))))
	15.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (-.f64 phi1 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (-.f64 phi1 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) #s(literal 2 binary64)))))))
	13.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (-.f64 (.f64 phi1 phi1) (.f64 phi2 phi2)) (+.f64 phi1 phi2))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (cos.f64 (/.f64 (-.f64 (.f64 phi1 phi1) (*.f64 phi2 phi2)) (+.f64 phi1 phi2))))))) #s(literal 2 binary64)))))))
	26.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal -1/2 binary64))))))
	26.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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 (-.f64 #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 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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)))))))
	26.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
	22.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 2 binary64))) (sqrt.f64 #s(approx (- 1 (pow (sqrt (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64))))))))
	21.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 2 binary64))) (sqrt.f64 #s(approx (- 1 (pow (sqrt (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64))))))))
	26.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 2 binary64))) (sqrt.f64 #s(approx (- 1 (pow (sqrt (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))))
	26.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 2 binary64))) (sqrt.f64 #s(approx (- 1 (pow (sqrt (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))))))
	26.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 2 binary64))) (sin.f64 (acos.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))))
	26.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) #s(literal 1/2 binary64))))))
	21.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1)))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1)))))) #s(literal 2 binary64)))))))
	22.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (- phi1 phi2) (.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64))))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (cos.f64 #s(approx (- phi1 phi2) (.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64))))))))) #s(literal 2 binary64)))))))
	16.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) #s(approx (cos (- phi1 phi2)) (cos.f64 (neg.f64 phi2))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) #s(approx (cos (- phi1 phi2)) (cos.f64 (neg.f64 phi2))))))) #s(literal 2 binary64)))))))
	24.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) #s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) #s(approx (- (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) (* 1/2 (cos (- phi1 phi2)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))))) #s(literal 2 binary64)))))))
	34.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 #s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 phi1 (sin.f64 (neg.f64 phi2))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))))))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 #s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 phi1 (sin.f64 (neg.f64 phi2))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))))))) #s(literal 2 binary64)))))))
	79.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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 (fma.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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))))))))))
	49.0%	(.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 phi2 #s(literal 1/2 binary64))) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(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 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(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))))))))))
	65.0%	(.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 phi2 #s(literal 1/2 binary64))) (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) phi1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (neg.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 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (sin.f64 (fma.f64 #s(literal -1/2 binary64) phi1 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (neg.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))))))))))
	61.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal 1/2 binary64) (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 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (fma.f64 phi2 #s(literal 1/2 binary64) (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))))))))))
	76.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (fma.f64 #s(literal -1/2 binary64) (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 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
	98.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #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 #s(literal -1/2 binary64) lambda2)) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (neg.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 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #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 #s(literal -1/2 binary64) lambda2)) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))) (fma.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))))))))
	57.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/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 #s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))))))
	98.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/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 #s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))))))))
	65.9%	(.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.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 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
	51.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.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 #s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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)))))))))
	70.4%	(.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) #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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) #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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))))))))))
	52.5%	(.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))))))
	45.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi2) (.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 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 (neg.f64 phi2) (.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))))))))))
	44.8%	(.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 phi2 (.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 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (+.f64 phi2 (.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))))))))))
	49.8%	(.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #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 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(approx ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))))))))
	49.4%	(.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #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 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))))
	45.0%	(.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #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 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))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #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 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)))))))))))
	59.3%	(.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #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 (fma.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #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))))))))))
	44.4%	(.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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.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 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (fma.f64 (PI.f64) #s(literal 1/2 binary64) (.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))))))))))
	76.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (+.f64 (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)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (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 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #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 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 3 binary64))) (+.f64 (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 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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.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 (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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (sin (+ (* (PI) 1/2) phi1)) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (fma.f64 (cos.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))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	24.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 (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)))))))) (sin.f64 (/.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)))))))))) (sqrt.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 phi1 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 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
	65.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 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #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 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
	31.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 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal 1 binary64) (fabs.f64 (-.f64 phi2 phi1)) (.f64 (PI.f64) #s(literal 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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
	32.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/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) (.f64 (PI.f64) #s(literal 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 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
	43.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.f64 (-.f64 #s(literal 1/2 binary64) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2))))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
	43.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.f64 #s(approx (- 1/2 ( 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
	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) (cos.f64 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 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
	54.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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) #s(approx ( 1/2 (- phi1 phi2)) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
	47.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(approx (+ 1/2 ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
	50.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 #s(approx (+ 1/2 ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+.f64 #s(literal 1/2 binary64) (.f64 #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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
	36.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 #s(approx ( 1/2 (- phi1 phi2)) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 phi1 phi2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))))))
	35.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))))) #s(approx (- (+ 1 (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (* -1/2 lambda2)) (sin (* -1/2 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
	60.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 #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)))))))))))
	52.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 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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
	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 #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 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 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 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
	37.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 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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)))))))))
	56.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) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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 #s(literal 1/2 binary64) (-.f64 phi1 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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
	54.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) (pow.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))))))))))
	55.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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))))) #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 #s(approx (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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))))) #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))))))))))
	43.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #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 #s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))) #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))))))))))
	44.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)))))))))
	79.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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 (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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))))))))))
	73.4%	(.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 #s(literal -1/2 binary64) phi1))) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))))) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) 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 (-.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 #s(literal -1/2 binary64) phi1))) #s(literal 2 binary64)) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))))) (fma.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.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) 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))))))))))
	45.2%	(.f64 R (.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #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 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
	37.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (exp.f64 (.f64 (log.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (exp.f64 (.f64 (log.f64 (sqrt.f64 (-.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))) #s(literal 2 binary64))))))))
	26.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (exp.f64 (.f64 (log.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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) (exp.f64 (.f64 (log.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))))))))
	26.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1 binary64))))))))
	58.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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)))))))))
	76.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (pow.f64 (fma.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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ ( (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (pow.f64 (fma.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)))) #s(literal 2 binary64)))))))))
	98.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (neg.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ ( (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (neg.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))))))))
	92.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (/.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))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (+.f64 (pow.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 (.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)))))))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ ( (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (/.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))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (+.f64 (pow.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 (.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)))))))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))))))))
	98.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (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))))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (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))))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))))))))
	98.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (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)))) #s(literal 2 binary64)))))))))
	98.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))))))
	76.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 phi2 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ ( (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (fma.f64 phi2 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))) #s(literal 2 binary64)))))))))
	66.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #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 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))))))
	56.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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)))))))))
	57.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))))))))
	62.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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)))))))))
	61.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))))
	59.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64))))) #s(approx (sqrt (- 1 (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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) (/.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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(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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 #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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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))))))))))))))
	52.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 #s(approx (+ ( (cos (* 1/2 phi1)) (sin (* -1/2 phi2))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) (+.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(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 #s(approx (+ ( (cos (* 1/2 phi1)) (sin (* -1/2 phi2))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) (+.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(literal 2 binary64)))))))))
	52.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 #s(approx (+ ( (cos (* 1/2 phi1)) (sin (* -1/2 phi2))) (* (cos (* 1/2 phi2)) (sin (* 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(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 #s(approx (+ ( (cos (* 1/2 phi1)) (sin (* -1/2 phi2))) (* (cos (* 1/2 phi2)) (sin (* 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(literal 2 binary64)))))))))
	93.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (/.f64 (-.f64 (.f64 (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (-.f64 (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ ( (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (/.f64 (-.f64 (.f64 (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))) (-.f64 (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))))))))))
	76.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #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 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #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 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))))))))))
	77.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.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 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ ( (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.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 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))))))))
	98.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (+.f64 (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ ( (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (+.f64 (+.f64 (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 2 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 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64))))))))))
	79.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(approx (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) #s(approx (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))))))))
	56.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 #s(approx (cos (* 1/2 lambda2)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 #s(approx (cos (* 1/2 lambda2)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/8 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))))))))
	98.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (.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))))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (.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))))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))))))))
	98.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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) (+.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 2 binary64)) (.f64 #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 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))) (pow.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (fma.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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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) (+.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 2 binary64)) (.f64 #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 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))) (pow.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))))))))
	88.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (pow.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 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))))) (pow.f64 (fma.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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (pow.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 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #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 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))))))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))))))))
	58.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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) #s(approx (pow (- ( (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (fma.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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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) #s(approx (pow (- ( (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))))))))
	52.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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))))))))))
	63.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (.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)))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (fma.f64 (.f64 (neg.f64 (.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 (neg.f64 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (neg.f64 (.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)))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ ( (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (.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)))) #s(literal 3 binary64))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (fma.f64 (.f64 (neg.f64 (.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 (neg.f64 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (neg.f64 (.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))))))))))))))
	55.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2)))))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) 2))) (pow (+ (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 (+ ( (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2)))))) #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (- (* (cos (* 1/2 lambda2)) (sin (* 1/2 lambda1))) (* (cos (* 1/2 lambda1)) (sin (* 1/2 lambda2)))) 2))) (pow (+ (* (cos (* 1/2 phi1)) (sin (* -1/2 phi2))) (* (cos (* 1/2 phi2)) (sin (* 1/2 phi1)))) 2)) (fma.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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))))))))))
	44.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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	48.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 (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 #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 (.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 #s(literal 1/2 binary64) phi1))))))))))))
	32.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 (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)))))))))
	32.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 (+.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)))))))))
	46.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 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.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)))))))))
	44.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) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #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) (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	17.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 binary64) (/.f64 #s(literal 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))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos 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)) #s(approx (pow (sin (* 1/2 phi1)) 2) (*.f64 #s(literal 1/4 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))))
	48.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 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1))))))))))))
	31.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.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 (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)))))))))
	48.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)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.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)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1))))))))))))
	25.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)) (exp.f64 (.f64 (log.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (exp.f64 (.f64 (log.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 lambda1 lambda2))) #s(literal 2 binary64)) #s(approx (pow (sin ( 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (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 (.f64 phi1 phi1) #s(literal 1/4 binary64))))))))))
	25.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)) #s(approx (pow (sin ( 1/2 phi1)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))) (pow.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64)))))) #s(literal 1/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 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))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))))))))
	24.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)) #s(approx (pow (sin ( 1/2 phi1)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))) (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 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)))))))))
	25.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)) #s(approx (pow (sin ( 1/2 phi1)) 2) (.f64 #s(literal 1/4 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.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)))))))))
	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 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))))))) (exp.f64 (.f64 (log.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 (.f64 phi1 phi1) #s(literal 1/4 binary64))))))) #s(literal 1/2 binary64))))))
	16.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) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #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))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos 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)) #s(approx (pow (sin (* 1/2 phi1)) 2) (*.f64 #s(literal 1/4 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))))
	12.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)) #s(approx (pow (sin ( 1/2 phi1)) 2) (.f64 #s(literal 1/4 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 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx (* 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) 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)))))))))))
	16.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) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 #s(literal 1/4 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 (cos.f64 phi1) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) #s(approx (pow (sin (* 1/2 phi1)) 2) (*.f64 #s(literal 1/4 binary64) (pow.f64 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) #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)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(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) (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)))) (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 (sqrt.f64 #s(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)))))))))
	12.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) #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 phi1)) 2) (.f64 #s(literal 1/4 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 (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))) #s(approx (pow (sin ( 1/2 phi1)) 2) (*.f64 #s(literal 1/4 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))))
	34.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) #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)))))))))
	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 #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)) #s(approx (pow (sin (* 1/2 phi1)) 2) (.f64 #s(literal 1/4 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 (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)) #s(approx (pow (sin (* 1/2 phi1)) 2) (*.f64 #s(literal 1/4 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))))
	44.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)))) (-.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) phi1))))) (.f64 (fma.f64 (cos.f64 (-.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)))) (-.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) phi1))))) (.f64 (fma.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))))
	26.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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 2 binary64)))))))
	28.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)))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.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)))) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.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) phi1))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1))))))))))))
	26.9%	(.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)))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #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) (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 2 binary64)))))))
	25.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64)))))))
	24.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 2 binary64)))))))
	44.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.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 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))))) #s(literal 2 binary64)))))))
	24.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 2 binary64)))))))
	29.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 2 binary64)))))))
	29.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (pow (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) 2)) (sqrt.f64 (pow.f64 (sqrt.f64 (-.f64 (+.f64 #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 lambda1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 #s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 #s(approx (+ 1/2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (- 1/2 (* 1/2 (cos lambda1))))))) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) #s(literal 2 binary64)))))))
	54.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64)))))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))))))))
	56.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ ( (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))))))))
	59.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (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 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))))))))
	59.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ ( (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))))))))
	58.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (+ ( (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))) #s(literal 2 binary64))) (pow.f64 (fma.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)))) #s(literal 2 binary64)))))))))
	44.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/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 (neg.f64 (.f64 #s(literal 1/2 binary64) phi2))) #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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #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 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
	56.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- 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 (fma.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)))) #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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #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 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
	45.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (+ (* (sin (* phi1 1/2)) (cos (* phi2 1/2))) (* (cos (* phi1 1/2)) (sin (neg (* phi2 1/2))))) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- 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 (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (neg.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)))) #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 phi2 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (neg.f64 (.f64 phi2 #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 phi2) (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 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (* (PI) 1/2) phi1)) (cos 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 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (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 (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))))))))))
	34.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 #s(literal 1 binary64) (pow.f64 (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 #s(literal -1/2 binary64) lambda2))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)))) (-.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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))))
	29.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 (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 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #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 #s(literal 1/2 binary64) phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))))))))))))
	29.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 (sin.f64 (+.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 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #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 #s(literal 1/2 binary64) phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (sin.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))))))))))))
	32.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 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (pow.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)))) (-.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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))))
	48.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) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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))))))))))
	37.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/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) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #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 #s(literal 1/2 binary64) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))))
	37.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))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/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) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #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 #s(literal 1/2 binary64) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))))
	16.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 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)) #s(approx (pow (sin ( 1/2 phi1)) 2) (*.f64 #s(literal 1/4 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))))
	38.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)))) (-.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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))))
	38.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))))) (/.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)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1 binary64) phi1)) #s(literal 1/2 binary64) (.f64 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))) #s(literal -1/2 binary64))))))
	37.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- 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) (fma.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	38.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)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))))
	26.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) 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)))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal 1 binary64) (fabs.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))))
	25.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)))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (fma.f64 #s(literal 1 binary64) phi1 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))))
	26.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)))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 (.f64 #s(literal 1 binary64) phi1)) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))))
	27.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))))) (sqrt.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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)))) (-.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) phi1))))) (.f64 (fma.f64 (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))))
	27.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- 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)))) (-.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) phi1))))) (.f64 (fma.f64 (sin.f64 (+.f64 (fabs.f64 (-.f64 lambda1 lambda2)) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))))
	14.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)))) (-.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) phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 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 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))))
	36.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- 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)))) (-.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) phi1))))) (.f64 (fma.f64 (cos.f64 (.f64 #s(literal -1 binary64) #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))))
	32.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) 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)))) (-.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) phi1))))) (.f64 (fma.f64 #s(approx (cos (* -1 (- lambda1 lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))))
	27.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- 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)))) #s(approx (- (- 1/2 (* 1/2 (cos (* 2 (* 1/2 phi1))))) (* (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (cos phi1))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi1) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1 binary64) lambda1))) #s(literal 1/2 binary64))))))))))))
	38.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) 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)))) #s(approx (- (- 1/2 (* 1/2 (cos (* 2 (* 1/2 phi1))))) (* (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (cos phi1))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 phi1) (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)) #s(literal 1/2 binary64))))))))))))
	26.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- 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)))) #s(approx (- (- 1/2 (* 1/2 (cos (* 2 (* 1/2 phi1))))) (* (+ (* (cos (* -1 (- lambda1 lambda2))) 1/2) -1/2) (cos phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))))))))))))
	35.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 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #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 #s(literal 1/2 binary64) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))))
	22.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- 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 #s(approx (* 1/2 (- phi1 phi2)) (.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)))) (-.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) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))))
	23.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (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 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #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 #s(literal 1/2 binary64) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))))
	24.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 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 (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 #s(literal 1/2 binary64) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))))
	34.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))))) (sqrt.f64 #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 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)))))) (sqrt.f64 (-.f64 #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 #s(literal 1/2 binary64) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))))
	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 #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (fma.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 #s(approx (+ (* (cos phi1) (* (cos phi2) (pow (sin (* -1/2 lambda2)) 2))) (pow (sin (* 1/2 (- phi1 phi2))) 2)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #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 #s(literal 1/2 binary64) phi1))))) (.f64 (fma.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64) #s(literal -1/2 binary64)) (cos.f64 phi1)))))))))

Compiler

Compiled 30 292 to 11 390 computations (62.4% saved)

regimes12.9s (34.1%)

Memory

161.9MiB live, 14 579.4MiB allocated; 3.3s collecting garbage

Counts

5 → 1

17 → 1

18 → 3

21 → 3

25 → 3

28 → 3

29 → 3

42 → 3

43 → 2

44 → 3

50 → 3

52 → 3

60 → 3

72 → 3

80 → 3

90 → 3

161 → 2

170 → 2

171 → 1

241 → 1

247 → 1

250 → 2

251 → 3

256 → 3

257 → 3

272 → 3

275 → 3

278 → 3

285 → 3

299 → 3

312 → 3

316 → 3

332 → 3

336 → 3

356 → 1

375 → 1

Calls

Call 1

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

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

Call 2

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

Outputs

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

Call 3

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

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

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

Call 4

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

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

Call 5

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

Outputs

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

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

Call 6

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

Call 7

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

Outputs

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

Call 8

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

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

Call 9

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

Outputs

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

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

Call 10

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

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

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

Call 11

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

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

Call 12

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

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

Call 13

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

Outputs

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

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

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

Call 14

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

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

Call 15

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

Call 16

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

Call 17

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

Call 18

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

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

Call 19

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

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

Call 20

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

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

Call 21

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

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

Call 22

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

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

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

Call 23

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

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

Call 24

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

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

Call 25

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

Outputs

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

Call 26

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

Call 27

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

Outputs

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

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

Call 28

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

Outputs

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

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

Call 29

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

Outputs

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

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

Call 30

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

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

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

Call 31

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

Outputs

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

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

Call 32

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

Outputs

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

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

Call 33

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

Outputs

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

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

Call 34

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

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

Call 35

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

Outputs

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

Call 36

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

Outputs

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

Calls

200 calls:

730.0ms	phi2
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))))))))))
137.0ms	lambda1
130.0ms	phi1
130.0ms	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))

Results

Accuracy	Segments	Branch
26.9%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
26.9%	1	`R`
26.9%	1	`phi1`
26.9%	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.9%	1	`(-.f64 lambda1 lambda2)`
26.9%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
26.9%	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.9%	1	`lambda1`
26.9%	1	`lambda2`
26.9%	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.9%	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)))))))))
26.9%	1	`phi2`
26.9%	1	`lambda1`
26.9%	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.9%	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)))))))))
26.9%	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.9%	1	`lambda2`
26.9%	1	`phi2`
26.9%	1	`(-.f64 lambda1 lambda2)`
26.9%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
26.9%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
26.9%	1	`phi1`
32.1%	3	`phi1`
32.4%	3	`phi1`
26.9%	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.9%	1	`R`
31.1%	3	`phi2`
29.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)))))`
29.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))))))))
29.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)))))))))
28.6%	2	`lambda1`
29.4%	2	`lambda2`
32.5%	3	`phi1`
35.7%	3	`phi1`
35.7%	3	`phi1`
32.0%	3	`(-.f64 lambda1 lambda2)`
32.0%	3	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
32.0%	3	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
35.7%	3	`lambda2`
29.4%	1	`R`
34.2%	3	`phi2`
36.6%	3	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
36.8%	4	`lambda1`
29.4%	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))))))))))
36.6%	3	`(-.f64 lambda1 lambda2)`
36.6%	3	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
35.7%	3	`phi1`
34.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)))))`
34.8%	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))))))))
34.8%	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)))))))))
44.8%	1	`R`
44.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))))))))))
44.8%	1	`lambda2`
44.8%	1	`lambda1`
44.8%	1	`(-.f64 lambda1 lambda2)`
44.8%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
48.4%	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)))))`
48.4%	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))))))))
48.4%	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)))))))))
44.8%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
44.8%	1	`phi2`
48.2%	3	`phi1`
60.7%	3	`phi1`
60.7%	3	`phi1`
60.7%	3	`phi1`
60.1%	3	`phi2`
63.2%	3	`phi2`
63.8%	3	`phi2`
50.7%	2	`lambda1`
49.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))))))))))
52.0%	3	`lambda2`
49.9%	2	`R`
60.7%	3	`phi1`
65.7%	3	`phi1`
65.6%	3	`phi2`
65.7%	3	`phi1`
54.4%	1	`(-.f64 lambda1 lambda2)`
54.4%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
58.2%	3	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
54.4%	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))))))))
54.4%	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)))))))))
54.4%	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)))))`
65.4%	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))))))))
65.4%	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)))))))))
65.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)))))`
65.6%	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)))))`
65.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))))))))
65.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)))))))))
65.9%	3	`(-.f64 lambda1 lambda2)`
65.9%	3	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
62.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))))))))))
62.6%	1	`R`
62.6%	1	`lambda1`
66.0%	3	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
62.6%	1	`lambda2`
65.8%	3	`phi1`
65.8%	3	`phi2`
65.3%	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)))))`
65.3%	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))))))))
65.3%	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)))))))))
65.3%	1	`(-.f64 lambda1 lambda2)`
65.3%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
65.3%	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))))))))))
65.3%	1	`lambda1`
65.3%	1	`phi2`
65.3%	1	`phi1`
65.3%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
65.3%	1	`R`
65.3%	1	`lambda2`
65.6%	1	`lambda2`
65.6%	1	`phi1`
65.6%	1	`(-.f64 lambda1 lambda2)`
65.6%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
65.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)))))`
65.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))))))))
65.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)))))))))
65.6%	1	`lambda1`
65.6%	1	`phi2`
65.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))))))))))
65.6%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
65.6%	1	`R`
65.9%	1	`R`
65.9%	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))))))))
65.9%	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)))))))))
65.9%	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)))))`
65.9%	1	`(-.f64 lambda1 lambda2)`
65.9%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
65.9%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
65.9%	1	`phi2`
69.3%	2	`phi2`
65.9%	1	`lambda1`
65.9%	1	`lambda2`
70.0%	3	`(-.f64 lambda1 lambda2)`
70.0%	3	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
70.0%	3	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
65.9%	1	`phi1`
75.1%	3	`phi1`
71.3%	3	`phi2`
79.8%	3	`phi2`
72.2%	3	`lambda2`
79.8%	3	`phi2`
79.6%	3	`phi1`
65.9%	1	`R`
65.9%	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))))))))))
67.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)))))`
67.4%	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))))))))
67.4%	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)))))))))
75.1%	4	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
72.8%	3	`(-.f64 lambda1 lambda2)`
72.8%	3	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
73.2%	4	`lambda1`
80.1%	3	`phi2`
81.1%	3	`phi1`
88.6%	3	`phi1`
88.7%	3	`phi1`
76.7%	1	`lambda2`
88.2%	3	`phi2`
88.8%	3	`phi2`
87.6%	3	`lambda1`
89.3%	3	`lambda1`
89.6%	3	`lambda1`
88.9%	3	`phi2`
90.1%	3	`phi2`
90.4%	3	`phi2`
87.4%	3	`(-.f64 lambda1 lambda2)`
87.4%	3	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
86.6%	3	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
83.4%	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)))))`
83.4%	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))))))))
83.4%	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)))))))))
81.5%	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))))))))))
79.7%	1	`R`
89.6%	3	`lambda1`
88.8%	3	`lambda2`
88.7%	3	`phi1`
90.5%	3	`phi2`
98.3%	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.3%	1	`R`
98.3%	1	`lambda2`
98.3%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
98.3%	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.3%	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.3%	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.3%	1	`(-.f64 lambda1 lambda2)`
98.3%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
98.3%	1	`lambda1`
98.3%	1	`phi1`
98.3%	1	`phi2`
98.3%	1	`(-.f64 lambda1 lambda2)`
98.3%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
98.3%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
98.3%	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.3%	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.3%	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.3%	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.3%	1	`R`
98.3%	1	`lambda1`
98.3%	1	`lambda2`
98.3%	1	`phi1`
98.3%	1	`phi2`

Compiler

Compiled 54 115 to 5 873 computations (89.1% saved)

bsearch250.0ms (0.7%)

Memory

-19.0MiB live, 357.5MiB allocated; 31ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
91.0ms	9.0479669942419e-6	0.00013560442875027858
142.0ms	-820.7434715699178	-0.1878955718999566

Samples

205.0ms	212×	1	valid
3.0ms	12×	0	valid

Compiler

Compiled 6 352 to 1 876 computations (70.5% saved)

Precisions

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

ival-sin: 73.0ms (37.2% of total)

ival-cos: 72.0ms (36.7% of total)

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

adjust: 12.0ms (6.1% of total)

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

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

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

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

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

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

bsearch133.0ms (0.4%)

Memory

5.6MiB live, 154.6MiB allocated; 90ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
122.0ms	9.0479669942419e-6	0.00013560442875027858
4.0ms	-820.7434715699178	-0.1878955718999566

Samples

109.0ms	74×	1	valid
1.0ms	6×	0	valid

Compiler

Compiled 6 128 to 1 834 computations (70.1% saved)

Precisions

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

ival-atan2: 36.0ms (34.1% of total)

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

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

adjust: 4.0ms (3.8% of total)

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

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

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

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

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

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

bsearch131.0ms (0.3%)

Memory

-4.7MiB live, 222.5MiB allocated; 55ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
3.0ms	9.0479669942419e-6	0.00013560442875027858
117.0ms	-33521.33980283771	-820.7434715699178

Samples

103.0ms	101×	1	valid
6.0ms	11×	0	valid

Compiler

Compiled 5 057 to 1 641 computations (67.5% saved)

Precisions

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

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

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

ival-atan2: 16.0ms (16.1% of total)

adjust: 6.0ms (6.0% of total)

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

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

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

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

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

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

bsearch407.0ms (1.1%)

Memory

14.9MiB live, 552.3MiB allocated; 66ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
172.0ms	1.1196566742739853e-13	13709.066544876372
205.0ms	-0.012835728819898763	-7.400941240982809e-13

Samples

352.0ms	305×	1	valid
2.0ms	15×	0	valid

Compiler

Compiled 7 048 to 2 794 computations (60.4% saved)

Precisions

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

ival-cos: 112.0ms (33.1% of total)

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

ival-div!: 48.0ms (14.2% of total)

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

adjust: 22.0ms (6.5% of total)

ival-mult!: 16.0ms (4.7% of total)

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

ival-atan2: 7.0ms (2.1% of total)

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

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

bsearch220.0ms (0.6%)

Memory

8.7MiB live, 271.2MiB allocated; 54ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
5.0ms	1.1196566742739853e-13	13709.066544876372
183.0ms	-3.0565817655528707e-33	-2.924805591935363e-36

Samples

173.0ms	124×	1	valid
1.0ms	4×	0	valid

Compiler

Compiled 8 636 to 2 482 computations (71.3% saved)

Precisions

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

ival-cos: 89.0ms (53.1% of total)

ival-sin: 31.0ms (18.5% of total)

ival-sub!: 21.0ms (12.5% of total)

adjust: 7.0ms (4.2% of total)

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

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

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

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

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

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

bsearch106.0ms (0.3%)

Memory

13.4MiB live, 105.1MiB allocated; 29ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
3.0ms	9.0479669942419e-6	0.00013560442875027858
96.0ms	-33521.33980283771	-820.7434715699178

Samples

89.0ms	76×	1	valid
1.0ms	4×	0	valid

Compiler

Compiled 4 920 to 1 498 computations (69.6% saved)

Precisions

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

ival-sin: 48.0ms (55.8% of total)

ival-cos: 21.0ms (24.4% of total)

adjust: 4.0ms (4.6% of total)

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

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

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

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

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

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

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

bsearch919.0ms (2.4%)

Memory

-145.7MiB live, 347.3MiB allocated; 1.2s collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
137.0ms	3.0688664928761343e-32	2.709786313160224e-26
766.0ms	-2.1894013119408864e-9	-3.855162391360632e-33

Samples

878.0ms	304×	1	valid
2.0ms	16×	0	valid

Compiler

Compiled 9 284 to 2 744 computations (70.4% saved)

Precisions

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

ival-sin: 676.0ms (78.2% of total)

ival-cos: 98.0ms (11.3% of total)

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

adjust: 19.0ms (2.2% of total)

ival-div!: 15.0ms (1.7% of total)

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

ival-pow2: 8.0ms (0.9% of total)

ival-atan2: 8.0ms (0.9% of total)

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

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

bsearch174.0ms (0.5%)

Memory

-5.8MiB live, 136.8MiB allocated; 17ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
159.0ms	2.709786313160224e-26	6.500774848057929e-16
6.0ms	-2.1894013119408864e-9	-3.855162391360632e-33

Samples

147.0ms	151×	1	valid
1.0ms	9×	0	valid

Compiler

Compiled 11 030 to 3 163 computations (71.3% saved)

Precisions

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

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

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

ival-mult!: 28.0ms (20.2% of total)

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

adjust: 8.0ms (5.8% of total)

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

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

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

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

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

bsearch153.0ms (0.4%)

Memory

19.2MiB live, 116.8MiB allocated; 10ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
5.0ms	2.709786313160224e-26	6.500774848057929e-16
139.0ms	-47440664.048298046	-2.1894013119408864e-9

Samples

122.0ms	152×	1	valid
1.0ms	8×	0	valid

Compiler

Compiled 9 428 to 2 764 computations (70.7% saved)

Precisions

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

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

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

adjust: 9.0ms (7.8% of total)

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

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

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

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

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

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

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

bsearch74.0ms (0.2%)

Memory

0.0MiB live, 45.3MiB allocated; 4ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
3.0ms	9.0479669942419e-6	0.00013560442875027858
65.0ms	-7704992068.978492	-1950758652.8741906

Samples

59.0ms	75×	1	valid
1.0ms	5×	0	valid

Compiler

Compiled 4 972 to 1 469 computations (70.5% saved)

Precisions

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

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

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

adjust: 4.0ms (7.2% of total)

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

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

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

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

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

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

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

bsearch10.0ms (0.0%)

Memory

-30.8MiB live, 15.1MiB allocated; 4ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
3.0ms	9.0479669942419e-6	0.00013560442875027858
4.0ms	-7704992068.978492	-1950758652.8741906

Compiler

Compiled 4 762 to 1 409 computations (70.4% saved)

bsearch153.0ms (0.4%)

Memory

5.8MiB live, 192.6MiB allocated; 22ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
5.0ms	2.709786313160224e-26	6.500774848057929e-16
132.0ms	-74005521331170.28	-31613018643.60672

Samples

115.0ms	121×	1	valid
1.0ms	7×	0	valid

Compiler

Compiled 7 600 to 2 760 computations (63.7% saved)

Precisions

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

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

ival-sin: 34.0ms (31.1% of total)

adjust: 7.0ms (6.4% of total)

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

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

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

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

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

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

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

bsearch49.0ms (0.1%)

Memory

20.5MiB live, 64.2MiB allocated; 8ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
44.0ms	-7704992068.978492	-1950758652.8741906

Samples

40.0ms	45×	1	valid
0.0ms	3×	0	valid

Compiler

Compiled 993 to 459 computations (53.8% saved)

Precisions

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

ival-cos: 18.0ms (47.2% of total)

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

adjust: 3.0ms (7.9% of total)

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

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

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

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

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

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

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

bsearch3.0ms (0.0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.014088401336774348	0.01599273046261283

Compiler

Compiled 95 to 48 computations (49.5% saved)

bsearch2.0ms (0.0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.01599273046261283	0.01971269799634845

Compiler

Compiled 95 to 48 computations (49.5% saved)

bsearch157.0ms (0.4%)

Memory

-11.2MiB live, 169.2MiB allocated; 34ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
10.0ms	2.709786313160224e-26	6.500774848057929e-16
141.0ms	-1037181880058037000.0	-74005521331170.28

Samples

133.0ms	118×	1	valid
1.0ms	10×	0	valid

Compiler

Compiled 3 582 to 1 508 computations (57.9% saved)

Precisions

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

adjust: 35.0ms (27.4% of total)

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

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

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

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

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

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

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

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

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

bsearch144.0ms (0.4%)

Memory

14.8MiB live, 152.9MiB allocated; 48ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
3.0ms	2.709786313160224e-26	6.500774848057929e-16
135.0ms	-1037181880058037000.0	-74005521331170.28

Samples

121.0ms	104×	1	valid
1.0ms	8×	0	valid

Compiler

Compiled 3 798 to 1 580 computations (58.4% saved)

Precisions

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

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

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

adjust: 6.0ms (5.1% of total)

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

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

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

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

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

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

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

bsearch112.0ms (0.3%)

Memory

-19.1MiB live, 128.6MiB allocated; 18ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
2.0ms	9.0479669942419e-6	0.00013560442875027858
90.0ms	-112448653506.00366	-7704992068.978492

Samples

83.0ms	93×	1	valid
0.0ms	3×	0	valid

Compiler

Compiled 2 720 to 1 198 computations (56.0% saved)

Precisions

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

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

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

adjust: 5.0ms (6.3% of total)

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

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

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

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

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

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

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

bsearch5.0ms (0.0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
2.0ms	9.0479669942419e-6	0.00013560442875027858
2.0ms	-112448653506.00366	-7704992068.978492

Compiler

Compiled 2 396 to 1 078 computations (55.0% saved)

bsearch7.0ms (0.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	2.709786313160224e-26	6.500774848057929e-16
3.0ms	-1037181880058037000.0	-74005521331170.28

Compiler

Compiled 3 550 to 1 444 computations (59.3% saved)

bsearch7.0ms (0.0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
3.0ms	2.709786313160224e-26	6.500774848057929e-16
3.0ms	-1037181880058037000.0	-74005521331170.28

Compiler

Compiled 3 630 to 1 464 computations (59.7% saved)

bsearch20.0ms (0.1%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
17.0ms	2.709786313160224e-26	6.500774848057929e-16
2.0ms	-1037181880058037000.0	-74005521331170.28

Compiler

Compiled 3 614 to 1 456 computations (59.7% saved)

bsearch1.0ms (0.0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	8.932732686358569e-8	0.0020964623690667094

Compiler

Compiled 130 to 54 computations (58.5% saved)

bsearch1.0ms (0.0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	2.7418243720663774e-11	0.001048230992569283
0.0ms	-1.1699632055643383e-14	-1.9401242742468028e-15

Compiler

Compiled 73 to 38 computations (47.9% saved)

bsearch115.0ms (0.3%)

Memory

26.0MiB live, 169.7MiB allocated; 9ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
106.0ms	0.032934713138411606	92.04351135710249
4.0ms	-2.1894013119408864e-9	-3.855162391360632e-33

Samples

96.0ms	117×	1	valid
2.0ms	11×	0	valid

Compiler

Compiled 4 994 to 2 193 computations (56.1% saved)

Precisions

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

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

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

adjust: 7.0ms (7.7% of total)

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

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

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

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

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

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

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

bsearch8.0ms (0.0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
3.0ms	0.032934713138411606	92.04351135710249
4.0ms	-2.1894013119408864e-9	-3.855162391360632e-33

Compiler

Compiled 4 690 to 2 136 computations (54.5% saved)

bsearch10.0ms (0.0%)

Memory

-28.9MiB live, 18.0MiB allocated; 3ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
3.0ms	0.032934713138411606	92.04351135710249
4.0ms	-2.1894013119408864e-9	-3.855162391360632e-33

Compiler

Compiled 4 880 to 2 250 computations (53.9% saved)

bsearch169.0ms (0.4%)

Memory

21.4MiB live, 211.8MiB allocated; 9ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
3.0ms	0.032934713138411606	92.04351135710249
159.0ms	-2.1894013119408864e-9	-3.855162391360632e-33

Samples

147.0ms	151×	1	valid
1.0ms	9×	0	valid

Compiler

Compiled 4 704 to 2 162 computations (54.0% saved)

Precisions

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

ival-sin: 65.0ms (46.1% of total)

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

adjust: 9.0ms (6.4% of total)

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

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

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

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

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

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

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

bsearch113.0ms (0.3%)

Memory

-28.1MiB live, 126.4MiB allocated; 71ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
106.0ms	0.032934713138411606	92.04351135710249
4.0ms	-2.1894013119408864e-9	-3.855162391360632e-33

Samples

98.0ms	61×	1	valid
0.0ms	3×	0	valid

Compiler

Compiled 5 118 to 2 091 computations (59.1% saved)

Precisions

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

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

ival-sin: 31.0ms (32.6% of total)

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

adjust: 4.0ms (4.2% of total)

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

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

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

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

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

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

derivations864.0ms (2.3%)

Memory

43.2MiB live, 595.6MiB allocated; 100ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 13 813 to 719 computations (94.8% saved)

preprocess510.0ms (1.4%)

Memory: -14.0MiB live, 846.5MiB allocated; 105ms collecting garbage
Compiler: Compiled 13 878 to 745 computations (94.6% saved)

end0.0ms (0.0%)

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

start0.0ms (0.0%)

analyze983.0ms (2.6%)

sample9.7s (25.7%)

preprocess55.0ms (0.1%)

sample0.0ms (0.0%)

series236.0ms (0.6%)

rewrite202.0ms (0.5%)

eval237.0ms (0.6%)

prune347.0ms (0.9%)

sample0.0ms (0.0%)

series1.4s (3.7%)

rewrite372.0ms (1.0%)

eval790.0ms (2.1%)

prune527.0ms (1.4%)

sample0.0ms (0.0%)

series686.0ms (1.8%)

rewrite412.0ms (1.1%)

eval721.0ms (1.9%)

prune926.0ms (2.4%)

sample0.0ms (0.0%)

series628.0ms (1.7%)

rewrite324.0ms (0.9%)

eval573.0ms (1.5%)

prune763.0ms (2.0%)

regimes12.9s (34.1%)

bsearch250.0ms (0.7%)

bsearch133.0ms (0.4%)

bsearch131.0ms (0.3%)

bsearch407.0ms (1.1%)

bsearch220.0ms (0.6%)

bsearch106.0ms (0.3%)

bsearch919.0ms (2.4%)

bsearch174.0ms (0.5%)

bsearch153.0ms (0.4%)

bsearch74.0ms (0.2%)

bsearch10.0ms (0.0%)

bsearch153.0ms (0.4%)

bsearch49.0ms (0.1%)

bsearch3.0ms (0.0%)

bsearch2.0ms (0.0%)

bsearch157.0ms (0.4%)

bsearch144.0ms (0.4%)

bsearch112.0ms (0.3%)

bsearch5.0ms (0.0%)

bsearch7.0ms (0.0%)

bsearch7.0ms (0.0%)

bsearch20.0ms (0.1%)

bsearch1.0ms (0.0%)

bsearch1.0ms (0.0%)

bsearch115.0ms (0.3%)

bsearch8.0ms (0.0%)

bsearch10.0ms (0.0%)

bsearch169.0ms (0.4%)

bsearch113.0ms (0.3%)

derivations864.0ms (2.3%)

preprocess510.0ms (1.4%)

end0.0ms (0.0%)

Profiling