Metrics for Distance on a great circle

start0.0ms (0.0%)

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

analyze1.1s (2.0%)

Memory

-20.8MiB live, 1 217.5MiB allocated; 231ms 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)

sample8.3s (15.6%)

Memory

386.3MiB live, 9 345.1MiB allocated; 1.4s collecting garbage

Samples

7.5s	7 593×	1	valid
131.0ms	662×	0	valid
1.0ms	1×	2	valid

Precisions

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

ival-cos: 2.5s (36.2% of total)

ival-sin: 2.1s (30.9% of total)

adjust: 518.0ms (7.6% of total)

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

ival-sqrt: 305.0ms (4.5% of total)

ival-pow2: 298.0ms (4.4% of total)

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

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

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

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

Bogosity

preprocess38.0ms (0.1%)

Memory

0.8MiB live, 46.0MiB allocated; 8ms 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
▶	59.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))

Status

Accuracy

Program

▶

59.4%

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

Compiler

Compiled 130 to 52 computations (60.0% saved)

series169.0ms (0.3%)

Memory

-18.0MiB live, 217.3MiB allocated; 34ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1098	14598

Stop Event

1×	iter-limit

Counts

26 → 219

Calls

Call 1

Inputs
R
#s(literal 2 binary64)
phi1
phi2
(-.f64 phi1 phi2)
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)))
(pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64))
(cos.f64 phi1)
(cos.f64 phi2)
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
lambda1
lambda2
(-.f64 lambda1 lambda2)
(/.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 (.f64 (*.f64 (cos.f64 phi1) (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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 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 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (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 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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
#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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 lambda1 lambda1)
#s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))
#s(approx (/ (- lambda1 lambda2) 2) (*.f64 #s(literal -1/2 binary64) lambda2))
#s(approx (/ (- lambda1 lambda2) 2) (+.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 #s(literal 1/2 binary64) lambda1)))
#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 (+.f64 (.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 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/48 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
#s(approx (* (* (cos 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))) (+.f64 (.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))) (+.f64 (.f64 lambda1 (+.f64 (.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))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 lambda1 (+.f64 (.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 (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 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))) (+.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)))))) (.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))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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)))) (+.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)))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 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 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 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 (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 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 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 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) (+.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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)))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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) (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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) (+.f64 (.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) (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 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 (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (+.f64 (.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 #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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 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 #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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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 (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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
#s(approx (* 2 (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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#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 (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
#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 (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#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 (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.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 (+.f64 (.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) (+.f64 (.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) (+.f64 (.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 (+.f64 (.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) (+.f64 (.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 (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 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 (+.f64 (.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) (+.f64 (.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 lambda2 lambda2)
#s(approx (- lambda1 lambda2) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#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 (+.f64 (.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 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/48 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))))
#s(approx (* (* (cos 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))) (+.f64 (.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))) (+.f64 (.f64 lambda2 (+.f64 (.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))) (+.f64 (.f64 lambda2 (+.f64 (.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 (+.f64 (.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 (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 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))) (+.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))))))) (.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))) (+.f64 (.f64 lambda2 (+.f64 (.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) (+.f64 (.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))) (+.f64 (.f64 lambda2 (+.f64 (.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 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)))) (+.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))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)))) (+.f64 (.f64 lambda2 (+.f64 (.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) (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)))) (+.f64 (.f64 lambda2 (+.f64 (.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 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.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))))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.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) (+.f64 (.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))))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (+.f64 (.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 #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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 #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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (*.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 (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 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 (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#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 (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.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 (+.f64 (.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) (+.f64 (.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) (+.f64 (.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 (+.f64 (.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) (+.f64 (.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 (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 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 (+.f64 (.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) (+.f64 (.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 phi1 phi1)
#s(approx (- phi1 phi2) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (- phi1 phi2) (-.f64 phi1 phi2))
#s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))
#s(approx (/ (- phi1 phi2) 2) (+.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1)))
#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 (+.f64 (.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 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 phi1 (+.f64 (.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 (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) (+.f64 (.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) (+.f64 (.f64 phi1 (+.f64 (.f64 phi1 (+.f64 (.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) (+.f64 (.f64 phi1 (+.f64 (.f64 phi1 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 phi1 (+.f64 (.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 phi1) #s(literal 1 binary64))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2)))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2)))))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal 1/24 binary64) (cos.f64 phi2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (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))) (+.f64 (.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))) (+.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.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))) (+.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.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)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- 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))) (+.f64 (.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))) (+.f64 (.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)) (+.f64 (.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))) (+.f64 (.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)) (+.f64 (.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)) (+.f64 (.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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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)))) (+.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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)))) (+.f64 (.f64 phi1 (+.f64 (.f64 phi1 (+.f64 (.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 (.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))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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)))) (+.f64 (.f64 phi1 (+.f64 (.f64 phi1 (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 phi1 (+.f64 (.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))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (+.f64 (.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 (.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 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (+.f64 (.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 (+.f64 (.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 (.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 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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 (.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 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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)))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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 (.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)))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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 (.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 (.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)))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (+.f64 (.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 (.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 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (- phi1 phi2) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 phi2 phi1)))))
#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 (sin (/ (- phi1 phi2) 2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
#s(approx (cos phi1) (cos.f64 phi1))
#s(approx (* (cos phi1) (cos phi2)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
#s(approx (- phi1 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (/.f64 phi2 phi1) #s(literal 1 binary64)))))
#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 (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))
#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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 (+ (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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 phi2 phi2)
#s(approx (- phi1 phi2) (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))
#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 (+.f64 (.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 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi2 (+.f64 (.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 (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) (+.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))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (+.f64 (.f64 phi2 (+.f64 (.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 (+.f64 (.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) (+.f64 (.f64 phi2 (+.f64 (.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 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (.f64 phi2 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1)))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1)))))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal 1/24 binary64) (cos.f64 phi1))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (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))) (+.f64 (.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))) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.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))) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.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)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (+.f64 (.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))) (+.f64 (.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)) (+.f64 (.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))) (+.f64 (.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)) (+.f64 (.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)) (+.f64 (.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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)))) (+.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))))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)))) (+.f64 (.f64 phi2 (+.f64 (.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 (+.f64 (.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 (.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 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)))) (+.f64 (.f64 phi2 (+.f64 (.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 (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (.f64 phi2 (+.f64 (.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 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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 (.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 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (+.f64 (.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 (+.f64 (.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 (.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 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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 (.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 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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))))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.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 (.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))))))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.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 (.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 (.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))))))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (+.f64 (.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 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (.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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 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 #s(literal -1 binary64) (.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi1 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 (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))
#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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 (+ (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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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
13.0ms	lambda1	0
12.0ms	phi1	-inf
10.0ms	lambda2	0
9.0ms	phi2	0
7.0ms	phi1	0

rewrite217.0ms (0.4%)

Memory

-3.4MiB live, 324.5MiB allocated; 52ms collecting garbage

Iterations

Useful iterations: 2 (0.0ms)

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

Stop Event

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

Counts

26 → 485

Calls

Call 1

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

eval266.0ms (0.5%)

Memory

17.7MiB live, 385.0MiB allocated; 49ms collecting garbage

Samples

107.0ms

1 792×

valid

Compiler

Compiled 73 298 to 7 626 computations (89.6% saved)

Precisions

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

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

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

adjust: 2.0ms (6.5% of total)

prune238.0ms (0.4%)

Memory

2.5MiB live, 338.2MiB allocated; 42ms collecting garbage

Pruning

79 alts after pruning (79 fresh and 0 done)

	Pruned	Kept	Total
New	606	79	685
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	607	79	686

Accuracy

94.8%

Counts

686 → 79

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	54.4%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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))
	53.7%	(.f64 R (/.f64 (+.f64 (pow.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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))) (+.f64 (.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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)))))))))))
	54.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.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) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 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 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	54.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (sqrt.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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))))))))))
	54.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (pow.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/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 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(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.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (/.f64 (+.f64 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.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 (+.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 (+.f64 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.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 (+.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)))))))
	69.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))) (+.f64 (.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))))) (+.f64 (.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))) (+.f64 (.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))))) (+.f64 (.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))))))))))
	74.6%	(.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))))))))))
	25.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 phi2 #s(literal 3 binary64))) (+.f64 (.f64 phi1 phi1) (+.f64 (.f64 phi2 phi2) (.f64 phi1 phi2)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (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 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 phi2 #s(literal 3 binary64))) (+.f64 (.f64 phi1 phi1) (+.f64 (.f64 phi2 phi2) (.f64 phi1 phi2)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 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.3%	(.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))))))))))
	58.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.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 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.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))))))))))
	41.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) (.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 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)))) #s(literal 4 binary64)))) (sqrt.f64 (-.f64 #s(literal 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 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) (.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 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)))) #s(literal 4 binary64))))))))
	57.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))))))))
	58.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	57.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 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.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #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 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	44.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (+.f64 (+.f64 (.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 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (+.f64 (+.f64 (.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))))))))))
	44.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #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 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))) phi2))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	59.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	50.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (+.f64 (.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 (+.f64 (.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.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 (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))))))))))
	51.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) (sin.f64 (+.f64 (.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 (+.f64 (.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))))))))))
	51.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (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 (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))))))))))
	72.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 (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))) (+.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (+.f64 (.f64 (.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))) (+.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (+.f64 (.f64 (.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))) (+.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (+.f64 (.f64 (.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))) (+.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (+.f64 (.f64 (.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)))))))))))))))
▶	79.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)) (-.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))))))))))))
	59.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.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)))))))
	59.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.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))))))))))
	59.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #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) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.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 #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)))))))))))))
	59.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.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)))))))))))
	59.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 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
	59.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 (.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)))))))))))
	60.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 (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)))))))))
	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 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	44.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 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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
	40.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	38.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (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)))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	50.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
	45.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
	59.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)))))) (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))))))
	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 #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)))))))))))
	48.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 #s(approx (/ (- lambda1 lambda2) 2) (.f64 #s(literal 1/2 binary64) lambda1)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.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)) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 #s(literal 1/2 binary64) lambda1)))) (sin.f64 #s(approx (/ (- lambda1 lambda2) 2) (.f64 #s(literal 1/2 binary64) lambda1))))))))))
	40.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)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (+.f64 (.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 (+.f64 (.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 (+.f64 (.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 (+.f64 (.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)))))))))))))))
	40.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 (-.f64 #s(literal 1 binary64) (+.f64 (pow.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)))))))))))))
	33.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)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 lambda1 (+.f64 (.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 (+.f64 (.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 (+.f64 (.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 (+.f64 (.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))))))))))))))
▶	33.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)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))))))))
	50.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	46.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 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.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) lambda1))))) (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 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	50.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	50.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))))))
	50.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 #s(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.0%	(.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))))))))))
	49.2%	(.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))))))))))
	42.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 #s(approx (/ (- phi1 phi2) 2) (.f64 #s(literal 1/2 binary64) phi1))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 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))))))))))
	41.1%	(.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.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	54.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
	56.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #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) (+.f64 (-.f64 #s(literal 1/2 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))))))))))
	28.9%	(.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))))))))))
	38.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 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))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(approx (pow (sin (/ (- phi1 phi2) 2)) 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))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	39.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (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 phi1 phi2)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (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))))) (sqrt.f64 (-.f64 #s(literal 1 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)))))))))
	54.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fabs.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))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fabs.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)))))))))))))
	43.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 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	45.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)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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.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)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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.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)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
	36.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)))) (+.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
	34.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)))) (+.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)))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.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)))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))))
	39.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.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))))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(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 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))
	40.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 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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(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 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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #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 (exp.f64 (.f64 (log.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)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	40.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))))) (+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 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))))))))))
	43.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 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))))))))))
	45.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))))) (+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	43.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 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 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))))))))))
	45.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 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.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (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))))))))))

Samples

54.0ms

1 024×

valid

Compiler

Compiled 16 658 to 6 250 computations (62.5% saved)

Precisions

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

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

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

adjust: 1.0ms (5.6% of total)

series609.0ms (1.1%)

Memory

51.9MiB live, 704.1MiB allocated; 208ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	3910	61122

Stop Event

1×	iter-limit

Counts

105 → 776

Calls

Call 1

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

Outputs
#s(approx R R)
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (+.f64 (.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 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (* 2 R) (*.f64 #s(literal 2 binary64) R))
#s(approx (* (atan2 (sqrt (+ (* (- 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 (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))))) (* 2 R)) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/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))))) (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 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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (+.f64 (.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)) phi1)))) (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 (.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)) phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx lambda1 lambda1)
#s(approx (* lambda1 1/2) (*.f64 #s(literal 1/2 binary64) lambda1))
#s(approx (sin (* lambda1 1/2)) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))
#s(approx (sin (* lambda1 1/2)) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/3840 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/48 binary64))))))
#s(approx (sin (* lambda1 1/2)) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/3840 binary64) (.f64 #s(literal -1/645120 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1/48 binary64))))))
#s(approx (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (.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 (+.f64 (.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 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.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 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/48 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.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 (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 (* (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)) (+.f64 (.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)) (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.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 (- (* (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 (+.f64 (.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 (+.f64 (.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 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))))) (+.f64 (.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))))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))) (.f64 lambda1 (+.f64 (.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))))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))))) (.f64 lambda1 (+.f64 (.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 (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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))))) (+.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))))))) (.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))))) (+.f64 (.f64 lambda1 (+.f64 (.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) (+.f64 (.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))))) (+.f64 (.f64 lambda1 (+.f64 (.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 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 lambda1 (+.f64 (.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) (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 lambda1 (+.f64 (.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 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 1/2)) (cos (* lambda2 1/2))) (* (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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.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))))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.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) (+.f64 (.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))))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 1/2)) (cos (* lambda2 1/2))) (* (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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (+.f64 (.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 #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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 #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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (+.f64 (.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 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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 (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 1/2)) (cos (* lambda2 1/2))) (* (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 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (+.f64 (.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 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))
#s(approx (* 1/2 (- lambda1 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2))
#s(approx (* 1/2 (- lambda1 lambda2)) (+.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 #s(literal 1/2 binary64) lambda1)))
#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 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/6 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))) (sin.f64 (neg.f64 lambda2))))))
#s(approx (* 1/2 (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))))) (+.f64 (.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))))) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2))) (.f64 lambda1 (+.f64 (.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))))) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (+.f64 (.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 (- 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 (* 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))) (+.f64 (.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))) (+.f64 (.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 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.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 (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))) (- 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) (+.f64 (.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) (+.f64 (.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)))))))) (.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 (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/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)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/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 (+.f64 (.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 (+.f64 (.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 (+.f64 (.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 (- 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) (+.f64 (.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) (+.f64 (.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) (+.f64 (.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 (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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (+.f64 (.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 (+.f64 (.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 (+.f64 (.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/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 (+.f64 (.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 (atan2 (sqrt (+ (* (- 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 (- (+ 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 (-.f64 (+.f64 #s(literal 1/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))))) (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 (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 (+.f64 (.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 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/48 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
#s(approx (* (* (cos 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))) (+.f64 (.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))) (+.f64 (.f64 lambda1 (+.f64 (.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))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 lambda1 (+.f64 (.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 (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 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))) (+.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)))))) (.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))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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)))) (+.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)))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 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 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 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 (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 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 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 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) (+.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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 (* 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) (+.f64 (.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) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.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) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 lambda1 (+.f64 (.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 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))
#s(approx (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))
#s(approx (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))
#s(approx (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))
#s(approx (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (+.f64 (.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)) (+.f64 (.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 (.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)) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (+.f64 (.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)) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (+.f64 (.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 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (-.f64 #s(literal 1 binary64) (+.f64 (.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 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 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))))))) (+.f64 (.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 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (+.f64 (.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 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 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 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (+.f64 (.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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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)))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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) (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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) (+.f64 (.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) (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 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 (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (+.f64 (.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 #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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 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 #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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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 (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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
#s(approx (* 2 (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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (+.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (+.f64 (.f64 lambda1 (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (+.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda1 (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda1 (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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/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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (+.f64 (.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)) phi1)))) (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 (.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)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.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)) phi1)))) (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 (.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)) phi1)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (* lambda1 (cos (* -1/2 lambda2))) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))
#s(approx (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))
#s(approx (sin (* lambda1 1/2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))
#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 (cos (* lambda1 1/2)) (cos.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 (- (* (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 (* (* (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 (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (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 (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 1/2)) (cos (* lambda2 1/2))) (* (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 (.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 (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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.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 (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 1/2)) (cos (* lambda2 1/2))) (* (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) (+.f64 (.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 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
#s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#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 (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (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 (- 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 (* 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)))))) (* (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 (sqrt (+ (* (- 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 (- 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 (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 (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
#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 (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 (* 1/2 (- lambda1 lambda2))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))
#s(approx (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
#s(approx (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
#s(approx (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (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)) phi1)))))
#s(approx (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (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)) phi1)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.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)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (+.f64 (.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)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.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)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)) phi1)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))
#s(approx (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2))))) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) lambda1))))
#s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#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 (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (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 (- 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 (* 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)))))) (* (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/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 (- 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 (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 (atan2 (sqrt (+ (* (- 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 (- (+ 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 (-.f64 (+.f64 #s(literal 1/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))))) (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 (+ (* (- 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 (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))))) (* 2 R)) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/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))))) (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 (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.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 (+.f64 (.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 (* 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 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))))
#s(approx (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (+.f64 (.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 (- 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (-.f64 #s(literal 1 binary64) (+.f64 (.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 (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.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) (+.f64 (.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 (+.f64 (.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) (+.f64 (.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 (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 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 (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (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 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (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 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))
#s(approx lambda2 lambda2)
#s(approx (* lambda2 1/2) (*.f64 #s(literal 1/2 binary64) lambda2))
#s(approx (cos (* lambda2 1/2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))
#s(approx (cos (* lambda2 1/2)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/384 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/8 binary64)))))
#s(approx (cos (* lambda2 1/2)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/384 binary64) (*.f64 #s(literal -1/46080 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/8 binary64)))))
#s(approx (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (+.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)) (+.f64 (.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)) (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.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 (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 (* (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 (+.f64 (.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 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.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 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/48 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.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 (* 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 (+.f64 (.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 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))))) (+.f64 (.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))))) (+.f64 (.f64 lambda2 (+.f64 (.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))))) (+.f64 (.f64 lambda2 (+.f64 (.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 (+.f64 (.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 (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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))))) (+.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))))))) (.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))))) (+.f64 (.f64 lambda2 (+.f64 (.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) (+.f64 (.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))))) (+.f64 (.f64 lambda2 (+.f64 (.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 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 lambda2 (+.f64 (.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) (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 lambda2 (+.f64 (.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 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 1/2)) (cos (* lambda2 1/2))) (* (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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.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))))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.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) (+.f64 (.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))))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 1/2)) (cos (* lambda2 1/2))) (* (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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (+.f64 (.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 #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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 #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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#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 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (sin.f64 lambda1))))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (* 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))))) (+.f64 (.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))))) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)) (.f64 lambda2 (+.f64 (.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))))) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 lambda1)) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 lambda1)) (.f64 #s(literal -1/12 binary64) (*.f64 lambda2 (sin.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 (* 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))) (+.f64 (.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))) (+.f64 (.f64 lambda2 (+.f64 (.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))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.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 (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))) (- 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) (+.f64 (.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) (+.f64 (.f64 lambda2 (+.f64 (.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) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(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)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/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 (+.f64 (.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 (+.f64 (.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 (+.f64 (.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 (- 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) (+.f64 (.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) (+.f64 (.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) (+.f64 (.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 (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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (+.f64 (.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 (+.f64 (.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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (+.f64 (.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 (+.f64 (.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 (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (+.f64 (.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 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 lambda2 (+.f64 (.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 (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) (+.f64 (.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) (+.f64 (.f64 lambda2 (+.f64 (.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 (+.f64 (.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) (+.f64 (.f64 lambda2 (+.f64 (.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 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 lambda2 (+.f64 (.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 phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))
#s(approx (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))
#s(approx (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (+.f64 (.f64 lambda2 (+.f64 (.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) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))
#s(approx (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (+.f64 (.f64 lambda2 (+.f64 (.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 (.f64 lambda2 (.f64 (cos.f64 phi1) (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))
#s(approx (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (+.f64 (.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)) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (+.f64 (.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)) (+.f64 (.f64 lambda2 (+.f64 (.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) (+.f64 (.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 (.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)) (+.f64 (.f64 lambda2 (+.f64 (.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 (.f64 lambda2 (.f64 (cos.f64 phi1) (+.f64 (.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 (.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 (.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 (- 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (-.f64 #s(literal 1 binary64) (+.f64 (.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 (- 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (+.f64 (.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 (- 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (+.f64 (.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 (- 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 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 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (+.f64 (.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 (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (+.f64 (.f64 lambda2 (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (+.f64 (.f64 lambda2 (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 lambda2 (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 lambda2 (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.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 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 lambda2 (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 lambda2 (+.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.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 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda2 (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) (.f64 lambda2 (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (.f64 lambda2 (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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/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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) #s(literal 2 binary64))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))))))
#s(approx (sin (* -1/2 lambda2)) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/48 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (sin (* -1/2 lambda2)) (.f64 lambda2 (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/48 binary64) (*.f64 #s(literal -1/3840 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
#s(approx (sin (* -1/2 lambda2)) (.f64 lambda2 (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/48 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/645120 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/3840 binary64))))) #s(literal 1/2 binary64))))
#s(approx (* lambda1 (cos (* -1/2 lambda2))) (+.f64 lambda1 (.f64 #s(literal -1/8 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (* lambda1 (cos (* -1/2 lambda2))) (+.f64 lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/8 binary64) lambda1) (.f64 #s(literal 1/384 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))))
#s(approx (* lambda1 (cos (* -1/2 lambda2))) (+.f64 lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/8 binary64) lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/46080 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64)))) (.f64 #s(literal 1/384 binary64) lambda1)))))))
#s(approx (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64)))) (*.f64 #s(literal 1/2 binary64) lambda1)))
#s(approx (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))) (+.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/16 binary64) lambda1) (.f64 #s(literal 1/768 binary64) (*.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))))
#s(approx (* 1/2 (* lambda1 (cos (* -1/2 lambda2)))) (+.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/16 binary64) lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/92160 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64)))) (*.f64 #s(literal 1/768 binary64) lambda1)))))))
#s(approx (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2))))) (+.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/16 binary64) (.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
#s(approx (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2))))) (+.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 lambda2 (-.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/16 binary64) lambda1) (*.f64 #s(literal 1/48 binary64) lambda2))) #s(literal 1/2 binary64)))))
#s(approx (cos (* lambda2 1/2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))
#s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#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 (cos (* -1/2 lambda2)) (cos.f64 (*.f64 #s(literal -1/2 binary64) 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 (* 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 (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (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 (- 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 (* 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)))))) (* (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 (sqrt (+ (* (- 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 (- 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 (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 (atan2 (sqrt (+ (* (- 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 (- (+ 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 (-.f64 (+.f64 #s(literal 1/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))))) (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 (+ (* (- 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 (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))))) (* 2 R)) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/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))))) (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 (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#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 (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.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 (+.f64 (.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 (* 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 (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))))
#s(approx (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (+.f64 (.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 (- 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (-.f64 #s(literal 1 binary64) (+.f64 (.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 (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.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) (+.f64 (.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 (+.f64 (.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) (+.f64 (.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 (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 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 (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (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 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (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 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
#s(approx phi1 phi1)
#s(approx (- phi1 phi2) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (- phi1 phi2) (-.f64 phi1 phi2))
#s(approx (/ (- phi1 phi2) 2) (*.f64 #s(literal -1/2 binary64) phi2))
#s(approx (/ (- phi1 phi2) 2) (+.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1)))
#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 (+.f64 (.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 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 phi1 (+.f64 (.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 (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) (+.f64 (.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) (+.f64 (.f64 phi1 (+.f64 (.f64 phi1 (+.f64 (.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) (+.f64 (.f64 phi1 (+.f64 (.f64 phi1 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 phi1 (+.f64 (.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 phi1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2)))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2)))))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal 1/24 binary64) (cos.f64 phi2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (- (* (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))))) (+.f64 (.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))))) (+.f64 (.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)) (+.f64 (.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))))) (+.f64 (.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)) (+.f64 (.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)) (+.f64 (.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)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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))))) (+.f64 (.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))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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)) (+.f64 (.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))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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)) (+.f64 (.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)) (+.f64 (.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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 phi1 (+.f64 (.f64 phi1 (+.f64 (.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 (.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))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 phi1 (+.f64 (.f64 phi1 (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 phi1 (+.f64 (.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))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 #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 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 phi1 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (+.f64 (.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 (.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 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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(literal 2 binary64)))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 #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 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 phi1 (+.f64 (.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 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 phi1 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (+.f64 (.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 (+.f64 (.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 (.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 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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(literal 2 binary64)))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (.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 (.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 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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(literal 2 binary64))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 #s(literal -1/2 binary64) phi2)))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (+.f64 (.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 (.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)))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (+.f64 (.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 (.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 (.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)))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 #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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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(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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 #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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 phi1 (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (+.f64 (.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 (.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 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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(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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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(literal 2 binary64))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 #s(literal -1/2 binary64) (/.f64 (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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(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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (* (- 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))) (+.f64 (.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))) (+.f64 (.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)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (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))) (+.f64 (.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)) (+.f64 (.f64 #s(literal -1/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)) (+.f64 (.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 (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 (+.f64 (.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 (* 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))))) (+.f64 (.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))))) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))) (.f64 phi1 (+.f64 (.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))))) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))) (.f64 phi1 (+.f64 (.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/12 binary64) (*.f64 phi1 (sin.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 (* 1/2 (cos (* 2 (* 1/2 (- 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) (+.f64 (.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) (+.f64 (.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) (+.f64 (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (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 (sqrt (+ (* (- 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 (+.f64 (.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)))))) (+.f64 (.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 (+.f64 (.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 (+.f64 (.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/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (+.f64 (.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)))))) (+.f64 (.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 (- 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) (+.f64 (.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) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))) (.f64 phi1 (+.f64 (.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) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))) (.f64 phi1 (+.f64 (.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/12 binary64) (*.f64 phi1 (sin.f64 (neg.f64 phi2)))))))))))
#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) (+.f64 (.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) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))) (.f64 phi1 (+.f64 (.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) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2))) (.f64 phi1 (-.f64 (+.f64 (.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 (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 (+.f64 (.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))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (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 (+.f64 (.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 (+.f64 (.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))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (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))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (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 (* (* (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))) (+.f64 (.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))) (+.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.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))) (+.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.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)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- 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))) (+.f64 (.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))) (+.f64 (.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)) (+.f64 (.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))) (+.f64 (.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)) (+.f64 (.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)) (+.f64 (.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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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)))) (+.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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)))) (+.f64 (.f64 phi1 (+.f64 (.f64 phi1 (+.f64 (.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 (.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))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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)))) (+.f64 (.f64 phi1 (+.f64 (.f64 phi1 (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 phi1 (+.f64 (.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))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (+.f64 (.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 (.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 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (+.f64 (.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 (+.f64 (.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 (.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 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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 (.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 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
#s(approx (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (+.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
#s(approx (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (+.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.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/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal 1/24 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
#s(approx (* 1/2 phi1) (*.f64 #s(literal 1/2 binary64) phi1))
#s(approx (sin (* 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
#s(approx (sin (* 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/3840 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/48 binary64))))))
#s(approx (sin (* 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/3840 binary64) (.f64 #s(literal -1/645120 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/48 binary64))))))
#s(approx (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 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2)) (+.f64 (.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)) (+.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (+.f64 (.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)) (+.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (+.f64 (.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 (.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 (- 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
#s(approx (- 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.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 (- 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (-.f64 (+.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/48 binary64) (.f64 #s(literal 1/24 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- 1 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (+.f64 #s(literal 1/48 binary64) (.f64 #s(literal -1 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))))))) (.f64 #s(literal 1/24 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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)))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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 (.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)))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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 (.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 (.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)))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (+.f64 (.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 (.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 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (neg phi1) (*.f64 #s(literal -1 binary64) phi1))
#s(approx (+ (neg phi1) (* (PI) 1/2)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ (neg phi1) (* (PI) 1/2)) (+.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (+ (neg phi1) (* (PI) 1/2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (+ (neg phi1) (* (PI) 1/2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (+ (neg phi1) (* (PI) 1/2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (+.f64 (.f64 #s(literal -1 binary64) (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 (+ (neg phi1) (* (PI) 1/2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (+.f64 (.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 (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (+.f64 (.f64 #s(literal -1 binary64) (.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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (+.f64 (.f64 phi1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (+.f64 (.f64 phi1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/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) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (+.f64 (.f64 #s(literal -1 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 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))
#s(approx (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (+.f64 (.f64 phi1 (+.f64 (.f64 #s(literal -1 binary64) (.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 #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 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))
#s(approx (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (+.f64 (.f64 phi1 (+.f64 (.f64 #s(literal -1 binary64) (.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 phi1 (+.f64 (.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 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))
#s(approx (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (+.f64 (.f64 #s(literal -1 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 (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (+.f64 (.f64 phi1 (+.f64 (.f64 #s(literal -1 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 #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 (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (+.f64 (.f64 phi1 (+.f64 (.f64 #s(literal -1 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 phi1 (+.f64 (.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 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 phi1 (+.f64 (.f64 #s(literal -1 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 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (+.f64 (.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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 phi1 (+.f64 (.f64 #s(literal -1 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 (.f64 phi1 (+.f64 (.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 (.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)))))) (+.f64 (.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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 phi1 (+.f64 (.f64 #s(literal -1 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 (.f64 phi1 (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 phi1 (+.f64 (.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 (.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/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)))))))))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) (+.f64 (.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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (+.f64 (.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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (+.f64 (.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 (+.f64 (.f64 #s(literal -1 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 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (sqrt.f64 (+.f64 (.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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (+.f64 (.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 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (+.f64 (.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 (.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 (+.f64 (.f64 #s(literal -1 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 (.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 (.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 (.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 (.f64 #s(literal -1 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 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (+.f64 (.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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (+.f64 (.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 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 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 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (+.f64 (.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 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (+.f64 (.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 (.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/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))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 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 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (-.f64 (+.f64 (.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 (.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 (+.f64 (.f64 #s(literal -1 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 (.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 (.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 (+.f64 (.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 (.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 (+.f64 (.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 (.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 (+.f64 (.f64 #s(literal -1 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 (.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 (.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 (.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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 (.f64 #s(literal -1 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 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (+.f64 (.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 (+ (neg phi1) (* (PI) 1/2))) (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 (+.f64 (.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 (.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 (.f64 #s(literal -1 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 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (+.f64 (.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 (+ (neg phi1) (* (PI) 1/2))) (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 (+.f64 (.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 (.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/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))))))))) (+.f64 (.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 (.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 (.f64 #s(literal -1 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 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) (+.f64 (.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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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 (+.f64 (.f64 #s(literal -1 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 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 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 (.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) (+.f64 (.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) (+.f64 (.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 (.f64 #s(literal -1 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 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 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 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (+.f64 (.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 (.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 (.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))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 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 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 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 (.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) (+.f64 (.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))))))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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) (+.f64 (.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 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 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 (.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) (+.f64 (.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) (+.f64 (.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 (- phi1 phi2) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 phi2 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 (sin (/ (- phi1 phi2) 2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
#s(approx (cos phi1) (cos.f64 phi1))
#s(approx (* (cos phi1) (cos phi2)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
#s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 (- 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 (* 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 (sin (* 1/2 phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) 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 (+ (neg phi1) (* (PI) 1/2)) (.f64 phi1 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)) #s(literal 1 binary64))))
#s(approx (sin (+ (neg phi1) (* (PI) 1/2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
#s(approx (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
#s(approx (- phi1 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (/.f64 phi2 phi1) #s(literal 1 binary64)))))
#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 (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))
#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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (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 (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 1/2)) (cos (* lambda2 1/2))) (* (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 (.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 (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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.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 (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 1/2)) (cos (* lambda2 1/2))) (* (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) (+.f64 (.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 (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 1/2)) (cos (* lambda2 1/2))) (* (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 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (+.f64 (.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 (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) (+.f64 (.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 (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 1/2)) (cos (* lambda2 1/2))) (* (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 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (+.f64 (.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 (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) (+.f64 (.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 (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 1/2)) (cos (* lambda2 1/2))) (* (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 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (+.f64 (.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 (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) (+.f64 (.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 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))))))))
#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 (* 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 (- 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 (* 1/2 (cos (* 2 (* 1/2 (- 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 (sqrt (+ (* (- 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 (- 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 (* 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 (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 (atan2 (sqrt (+ (* (- 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 (- (+ 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 (-.f64 (+.f64 #s(literal 1/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))))))) (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 (+ (* (- 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 (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))))) (* 2 R)) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/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))))))) (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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 (+ (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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 (+ (neg phi1) (* (PI) 1/2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi1))))))
#s(approx (sin (+ (neg phi1) (* (PI) 1/2))) (sin.f64 (+.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 (.f64 #s(literal -1 binary64) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (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 binary64) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (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 binary64) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.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 binary64) phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (+.f64 (.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 binary64) phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.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 binary64) phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (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) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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 binary64) phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (+.f64 (.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 binary64) phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (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) (+.f64 (.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 binary64) phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (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 (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.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 binary64) phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (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) (+.f64 (.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 binary64) phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64))))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (+.f64 (.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 binary64) phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (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) (+.f64 (.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 binary64) phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) #s(literal 2 binary64)))))))))
#s(approx phi2 phi2)
#s(approx (- phi1 phi2) (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))
#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 (+.f64 (.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 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi2 (+.f64 (.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 (pow (sin (/ (- phi1 phi2) 2)) 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))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (+.f64 (.f64 phi2 (+.f64 (.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 (+.f64 (.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) (+.f64 (.f64 phi2 (+.f64 (.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 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (.f64 phi2 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1)))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1)))))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal 1/24 binary64) (cos.f64 phi1))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (- (* (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))))) (+.f64 (.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))))) (+.f64 (.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)) (+.f64 (.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))))) (+.f64 (.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)) (+.f64 (.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)) (+.f64 (.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)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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))))) (+.f64 (.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))))) (+.f64 (.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)) (+.f64 (.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))))) (+.f64 (.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)) (+.f64 (.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)) (+.f64 (.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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (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 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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))))) (+.f64 (.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 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 phi2 (+.f64 (.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 (+.f64 (.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 (.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 (.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 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 phi2 (+.f64 (.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 (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (.f64 phi2 (+.f64 (.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 (.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 1/2)) (cos (* lambda2 1/2))) (* (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 (.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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.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 (.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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.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 (+.f64 (.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 (.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 (+.f64 (.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 (.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 (+.f64 (.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 (+.f64 (.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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.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 (+.f64 (.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 (.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 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (+.f64 (.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 (+.f64 (.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 (.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 (+.f64 (.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 (+.f64 (.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 (+.f64 (.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 (+.f64 (.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 (.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 (+.f64 (.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 (+.f64 (.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 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.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 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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))))) (+.f64 (.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 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (+.f64 (.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 (.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))))))) (+.f64 (.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 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (+.f64 (.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 (.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 (.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))))))) (+.f64 (.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 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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) (+.f64 (.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 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.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) (+.f64 (.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 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.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) (+.f64 (.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) (+.f64 (.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 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.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 (+.f64 (.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) (+.f64 (.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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (+.f64 (.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 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.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) (+.f64 (.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 (.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) (+.f64 (.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 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.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) (+.f64 (.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/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))) (+.f64 (.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))) (+.f64 (.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)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (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))) (+.f64 (.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)) (+.f64 (.f64 #s(literal -1/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)) (+.f64 (.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 (* 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 (+.f64 (.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 (* 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))))) (+.f64 (.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))))) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 phi2 (+.f64 (.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))))) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 phi2 (+.f64 (.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/12 binary64) (*.f64 phi2 (sin.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 (* 1/2 (cos (* 2 (* 1/2 (- 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) (+.f64 (.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) (+.f64 (.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) (+.f64 (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (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 (sqrt (+ (* (- 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 (+.f64 (.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)))))) (+.f64 (.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 (+.f64 (.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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (+.f64 (.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)))))) (+.f64 (.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)))))) (+.f64 (.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 (- 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) (+.f64 (.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) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 phi2 (+.f64 (.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) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 phi2 (+.f64 (.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/12 binary64) (*.f64 phi2 (sin.f64 phi1))))))))))
#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) (+.f64 (.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) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 phi2 (+.f64 (.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) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 phi2 (+.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 phi1)) (.f64 phi2 (-.f64 (+.f64 (.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 (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 (+.f64 (.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)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (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 (+.f64 (.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 (+.f64 (.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)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (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)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (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 (* (* (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))) (+.f64 (.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))) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.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))) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.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)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (+.f64 (.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))) (+.f64 (.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)) (+.f64 (.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))) (+.f64 (.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)) (+.f64 (.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)) (+.f64 (.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 (+ (pow (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))))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)))) (+.f64 (.f64 phi2 (+.f64 (.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 (+.f64 (.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 (.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 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)))) (+.f64 (.f64 phi2 (+.f64 (.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 (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (.f64 phi2 (+.f64 (.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 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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 (.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 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (+.f64 (.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 (+.f64 (.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 (.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 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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 (.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 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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))))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.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 (.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))))))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.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 (.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 (.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))))))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (+.f64 (.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 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (.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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))))))
#s(approx (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))
#s(approx (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal 1/24 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))
#s(approx (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
#s(approx (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.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 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))
#s(approx (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 #s(literal 1/24 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))))
#s(approx (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (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 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
#s(approx (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (+.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (+.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (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))))) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 phi2 (+.f64 (.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 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (+.f64 (.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 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 phi2 (+.f64 (.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 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (.f64 phi2 (+.f64 (.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 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.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 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 phi2 (+.f64 (.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 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (+.f64 (.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 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (+.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 phi2 (+.f64 (.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 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 phi2 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (+.f64 (.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 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (+.f64 (.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 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (+.f64 (.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 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (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))))) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (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 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (+.f64 (.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))))))) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (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 (+.f64 (.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 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (+.f64 (.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))))))) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.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) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(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) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (.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) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (.f64 phi2 (+.f64 (.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) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (.f64 phi2 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (+.f64 (.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 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(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) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(literal 2 binary64)))) (+.f64 (.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) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) #s(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) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))))))
#s(approx (- phi1 phi2) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 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 #s(literal -1 binary64) (.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi1 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 (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))
#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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (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 (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 1/2)) (cos (* lambda2 1/2))) (* (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 (.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 (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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.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 (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 1/2)) (cos (* lambda2 1/2))) (* (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) (+.f64 (.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 (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 1/2)) (cos (* lambda2 1/2))) (* (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 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (+.f64 (.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 (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) (+.f64 (.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 (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 1/2)) (cos (* lambda2 1/2))) (* (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 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (+.f64 (.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 (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) (+.f64 (.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 (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 1/2)) (cos (* lambda2 1/2))) (* (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 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (+.f64 (.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 (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) (+.f64 (.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 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))))))))
#s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 (- 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 (* 1/2 (cos (* 2 (* 1/2 (- 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 (sqrt (+ (* (- 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 (- 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 (* 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 (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 (atan2 (sqrt (+ (* (- 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 (- (+ 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 (-.f64 (+.f64 #s(literal 1/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)))))) (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 (+ (* (- 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 (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))))) (* 2 R)) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/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)))))) (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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 (+ (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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.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)) phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (+.f64 (.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)) phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.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)) phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)) phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64))))))
#s(approx (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))) (atan2.f64 (sqrt.f64 (+.f64 (.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)) phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)) phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))))))) (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.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)) phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)) phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64))))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))))))) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (+.f64 (.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)) phi1)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)) phi1)))) (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
61.0ms	phi1	-inf
39.0ms	lambda1	inf
30.0ms	lambda1	0
27.0ms	phi2	-inf
27.0ms	lambda2	-inf

rewrite506.0ms (0.9%)

Memory

6.5MiB live, 1 857.2MiB allocated; 104ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	119	2796
0	214	2481
1	858	1895
0	4061	1895

Stop Event

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

Counts

105 → 1 608

Calls

Call 1

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

Outputs
R
#s(literal 2 binary64)
phi1
phi2
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) #s(literal 2 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 (-.f64 phi1 phi2) #s(literal 1 binary64))
(.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(/.f64 (+.f64 (.f64 (-.f64 phi2 phi1) #s(literal -2 binary64)) (.f64 (-.f64 phi2 phi1) #s(literal -2 binary64))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal -4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 phi1 phi2) #s(literal -2 binary64)) (.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal -4 binary64))
(/.f64 (+.f64 (.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 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))
(/.f64 (+.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 (neg.f64 phi2) #s(literal 3 binary64))) (+.f64 (.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 (+.f64 (.f64 (-.f64 phi2 phi1) #s(literal -2 binary64)) (.f64 #s(literal -2 binary64) (-.f64 phi2 phi1))) #s(literal 4 binary64))
(/.f64 (+.f64 (.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 (+.f64 (.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 (+.f64 (.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))) (+.f64 (.f64 phi1 phi1) (+.f64 (.f64 phi2 phi2) (*.f64 phi1 phi2))))
(134-z0z1z2z3z4 #s(literal 1 binary64) (-.f64 phi2 phi1) #s(literal -1/2 binary64) (-.f64 phi2 phi1) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 1 binary64) (-.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal -1/2 binary64) (-.f64 phi1 phi2))
(134-z0z1z2z3z4 #s(literal 1 binary64) #s(literal 1/2 binary64) (-.f64 phi1 phi2) (-.f64 phi2 phi1) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 1 binary64) #s(literal 1/2 binary64) (-.f64 phi1 phi2) #s(literal -1/2 binary64) (-.f64 phi1 phi2))
(134-z0z1z2z3z4 #s(literal 1 binary64) (-.f64 phi1 phi2) #s(literal 1/2 binary64) (-.f64 phi2 phi1) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 1 binary64) (-.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64) (-.f64 phi1 phi2))
(134-z0z1z2z3z4 #s(literal 2 binary64) #s(literal 1/2 binary64) phi1 phi2 #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 2 binary64) phi1 #s(literal 1/2 binary64) phi2 #s(literal 1/2 binary64))
(neg.f64 (-.f64 phi2 phi1))
(-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.f64 #s(literal 1/2 binary64) phi1)) (*.f64 phi2 #s(literal 1/2 binary64)))
(-.f64 (.f64 #s(literal 1/2 binary64) phi1) (-.f64 (.f64 phi2 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.f64 #s(literal -1/2 binary64) (-.f64 phi1 phi2)))
(-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64)))
(-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (neg.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(-.f64 phi1 (neg.f64 (neg.f64 phi2)))
(-.f64 phi1 phi2)
(+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) #s(literal 1 binary64)) (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) #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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(+.f64 (.f64 phi1 #s(literal 1 binary64)) (.f64 (neg.f64 phi2) #s(literal 1 binary64)))
(+.f64 (neg.f64 phi2) phi1)
(+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(+.f64 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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))
(*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))
(/.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 (.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))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal 1/2 binary64) phi1)) (+.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) phi1) (*.f64 phi2 #s(literal 1/2 binary64))))))
(/.f64 (-.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 #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))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (-.f64 phi2 phi1) #s(literal -1/2 binary64) (-.f64 phi2 phi1) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (-.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal -1/2 binary64) (-.f64 phi1 phi2))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (-.f64 phi1 phi2) (-.f64 phi2 phi1) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (-.f64 phi1 phi2) #s(literal -1/2 binary64) (-.f64 phi1 phi2))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (-.f64 phi1 phi2) #s(literal 1/2 binary64) (-.f64 phi2 phi1) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (-.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/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)))
(-.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) (neg.f64 phi2)))
(+.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 (neg.f64 phi2) #s(literal 1/2 binary64)))
(+.f64 (.f64 #s(literal 1/2 binary64) phi1) (neg.f64 (.f64 phi2 #s(literal 1/2 binary64))))
(+.f64 (*.f64 #s(literal 1/2 binary64) phi1) (/.f64 (neg.f64 phi2) #s(literal 2 binary64)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (fabs.f64 (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 (-.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 #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 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)))) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.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 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (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 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.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))))))
(134-z0z1z2z3z4 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(neg.f64 (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(-.f64 #s(literal 1/2 binary64) (neg.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)))
(+.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1))))) (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1)))) (.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 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1)))) (-.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 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1))) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1))))))
(sin.f64 (+.f64 (fabs.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))
(sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1))) (.f64 (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1))) (neg.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1))))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))))
(cos.f64 (neg.f64 (fabs.f64 phi1)))
(cos.f64 (neg.f64 (neg.f64 phi1)))
(cos.f64 (fabs.f64 (fabs.f64 phi1)))
(cos.f64 (fabs.f64 phi1))
(cos.f64 (neg.f64 phi1))
(cos.f64 phi1)
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.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 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1))))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.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 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))
(cos.f64 (neg.f64 (neg.f64 phi2)))
(cos.f64 (neg.f64 (fabs.f64 phi2)))
(cos.f64 (fabs.f64 (fabs.f64 phi2)))
(cos.f64 (neg.f64 phi2))
(cos.f64 (fabs.f64 phi2))
(cos.f64 phi2)
(+.f64 (.f64 (sin.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))
(.f64 (+.f64 (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (-.f64 (-.f64 (*.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 (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (-.f64 (-.f64 (.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) (fabs.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (-.f64 (neg.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) phi1)) (cos.f64 (-.f64 (fabs.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 (fabs.f64 phi1))) (cos.f64 (-.f64 phi2 (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) phi2)) (cos.f64 (-.f64 (fabs.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) phi2)) (cos.f64 (-.f64 (neg.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 (fabs.f64 phi2))) (cos.f64 (-.f64 phi1 (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))) (cos.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))) (cos.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))) (cos.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))) (cos.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fabs.f64 phi1))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (neg.f64 phi2))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (fabs.f64 phi2))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (fabs.f64 phi2))) (sin.f64 (+.f64 (-.f64 (.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 (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (-.f64 (-.f64 (.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 (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (-.f64 (-.f64 (.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)))))
(134-z0z1z2z3z4 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1)) (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1)) (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (cos.f64 phi2) (neg.f64 (sin.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (cos.f64 phi2) (neg.f64 (sin.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(+.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1))))
(+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1))) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)))
(+.f64 (/.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) #s(literal 2 binary64)) (/.f64 (sin.f64 (+.f64 (-.f64 (.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 phi1)) #s(literal 1/2 binary64)))
lambda1
#s(literal 1/2 binary64)
(*.f64 #s(literal 1/2 binary64) lambda1)
(*.f64 lambda1 #s(literal 1/2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) lambda1) #s(literal 2 binary64))
(/.f64 (*.f64 lambda1 #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (neg.f64 lambda1) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) lambda1))
(/.f64 lambda1 #s(literal 2 binary64))
(sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))
lambda2
(*.f64 (neg.f64 lambda2) #s(literal -1/2 binary64))
(*.f64 #s(literal -1/2 binary64) (neg.f64 lambda2))
(*.f64 lambda2 #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) lambda2)
(/.f64 (*.f64 lambda2 #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) lambda2) #s(literal 2 binary64))
(/.f64 (neg.f64 lambda2) #s(literal -2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) lambda2))
(/.f64 lambda2 #s(literal 2 binary64))
(neg.f64 (*.f64 #s(literal -1/2 binary64) lambda2))
(sin.f64 (+.f64 (.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (-.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) (PI.f64))))
(sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))))
(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 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 (PI.f64) #s(literal 1/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 1/2 binary64))
(.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))
(.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
(/.f64 (neg.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 (cos.f64 (-.f64 (-.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) (PI.f64))) (.f64 #s(literal 1/2 binary64) lambda1))) (cos.f64 (+.f64 (-.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) (PI.f64))) (.f64 #s(literal 1/2 binary64) lambda1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) lambda1) (-.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (.f64 #s(literal 1/2 binary64) lambda1) (-.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (+.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 (fabs.f64 lambda2) #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 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) (sin.f64 (.f64 (-.f64 lambda1 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 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2))) #s(literal 2 binary64)))
(sin.f64 (+.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64))))
(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 #s(literal 1/2 binary64) lambda1))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.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 (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)) (-.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64))) (.f64 lambda2 #s(literal 1/2 binary64)))) (cos.f64 (+.f64 (-.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 #s(literal -1/2 binary64) (PI.f64))) (.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 (+.f64 (.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 (+.f64 (.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 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 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 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))
(.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 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.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 #s(literal 1/2 binary64) lambda1))) (.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 #s(literal 1/2 binary64) lambda1))) #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))) (+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (-.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 #s(literal 1/2 binary64) lambda1))) (.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 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.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 #s(literal 1/2 binary64) lambda1))) #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))) (+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (+.f64 (.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 #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)))))))
(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)))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.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 #s(literal 1/2 binary64) lambda1))) (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 #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 (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 #s(literal 1/2 binary64) lambda1))))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.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))) (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 (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)))) #s(literal 2 binary64))
(/.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 (+.f64 (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (-.f64 (-.f64 (.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 (+.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))
(134-z0z1z2z3z4 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1)) (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1)) (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (neg.f64 (sin.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (neg.f64 (sin.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.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 1/2 binary64) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.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 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.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 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (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) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2))))
(+.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))
(+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.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 (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 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (.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 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))
(.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))
(.f64 (cos.f64 phi1) (.f64 (.f64 (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 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(134-z0z1z2z3z4 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1)) (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1)) (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (neg.f64 (sin.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (neg.f64 (sin.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (+.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 1/2 binary64) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (+.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 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (+.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 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (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) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(neg.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))
(+.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 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.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))) (cos.f64 phi1)) (cos.f64 phi2))))
(+.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 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 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 lambda2 lambda1)) #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 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 (.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64))) (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (+.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.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))) (+.f64 (.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (+.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 (.f64 (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))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (+.f64 (.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (.f64 (-.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(neg.f64 (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(-.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (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 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (pow.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(fabs.f64 (neg.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(fabs.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(exp.f64 (.f64 (log.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64)))
#s(literal 1 binary64)
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #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 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1 binary64))) #s(literal 1 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1 binary64) (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (-.f64 (.f64 (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (.f64 #s(literal 1 binary64) (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(/.f64 (+.f64 (pow.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) (-.f64 (.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1 binary64) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 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))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (+.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (+.f64 (.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (.f64 #s(literal 1 binary64) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) (+.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(neg.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64))))
(-.f64 (-.f64 #s(literal 1 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(-.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(-.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(-.f64 #s(literal 1/2 binary64) (neg.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(+.f64 (-.f64 #s(literal 1 binary64) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64))) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(+.f64 (-.f64 #s(literal 1 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(+.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64))
(+.f64 (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(+.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(+.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (-.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 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(.f64 (pow.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(fabs.f64 (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(exp.f64 (.f64 (log.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) #s(literal 1/2 binary64)))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (-.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))) (-.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 3 binary64)) (pow.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 3 binary64))) (+.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (-.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(-.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (neg.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 1 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(.f64 (.f64 R (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) #s(literal 2 binary64))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R) #s(literal 2 binary64))
(.f64 (+.f64 R R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 R R))
(.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 #s(literal 2 binary64) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R))
(.f64 R (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)))
(+.f64 (.f64 R (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 R (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R))
(*.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 (-.f64 lambda1 lambda2) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))
(*.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 (+.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64)) (.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) #s(literal -4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)) (.f64 (-.f64 lambda2 lambda1) #s(literal 2 binary64))) #s(literal -4 binary64))
(/.f64 (+.f64 (.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))) (+.f64 (.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))) (+.f64 (.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 (+.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64)) (.f64 #s(literal -2 binary64) (-.f64 lambda2 lambda1))) #s(literal 4 binary64))
(/.f64 (+.f64 (.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 (+.f64 (.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 (+.f64 (.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))) (+.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 lambda2 lambda2) (*.f64 lambda1 lambda2))))
(134-z0z1z2z3z4 #s(literal 1 binary64) (-.f64 lambda2 lambda1) #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 1 binary64) (-.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))
(134-z0z1z2z3z4 #s(literal 1 binary64) (-.f64 lambda1 lambda2) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 1 binary64) (-.f64 lambda1 lambda2) #s(literal 1/2 binary64) #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))
(134-z0z1z2z3z4 #s(literal 1 binary64) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2) (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 1 binary64) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2) #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))
(134-z0z1z2z3z4 #s(literal 2 binary64) #s(literal 1/2 binary64) lambda1 (neg.f64 lambda2) #s(literal -1/2 binary64))
(134-z0z1z2z3z4 #s(literal 2 binary64) #s(literal 1/2 binary64) lambda1 #s(literal -1/2 binary64) (neg.f64 lambda2))
(134-z0z1z2z3z4 #s(literal 2 binary64) #s(literal 1/2 binary64) lambda1 lambda2 #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 2 binary64) #s(literal 1/2 binary64) lambda1 #s(literal 1/2 binary64) lambda2)
(134-z0z1z2z3z4 #s(literal 2 binary64) lambda1 #s(literal 1/2 binary64) (neg.f64 lambda2) #s(literal -1/2 binary64))
(134-z0z1z2z3z4 #s(literal 2 binary64) lambda1 #s(literal 1/2 binary64) #s(literal -1/2 binary64) (neg.f64 lambda2))
(134-z0z1z2z3z4 #s(literal 2 binary64) lambda1 #s(literal 1/2 binary64) lambda2 #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 2 binary64) lambda1 #s(literal 1/2 binary64) #s(literal 1/2 binary64) lambda2)
(neg.f64 (-.f64 lambda2 lambda1))
(-.f64 (+.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 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 (.f64 #s(literal 1/2 binary64) lambda1) (-.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (*.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 #s(literal 1 binary64) (/.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/2 binary64) lambda1))
(*.f64 (-.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 #s(literal 1/2 binary64) lambda1) #s(literal 2 binary64)) lambda2) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (.f64 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 #s(literal 1/2 binary64) lambda1) #s(literal 3 binary64)) (pow.f64 (.f64 lambda2 #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (*.f64 lambda2 #s(literal 1/2 binary64))))))
(/.f64 (-.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)))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1) #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2) #s(literal 1/2 binary64) #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2) (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2) #s(literal -1/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 #s(literal 1/2 binary64) lambda1)))
(-.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 lambda2 #s(literal 1/2 binary64)))
(+.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))
(+.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.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 (-.f64 lambda1 lambda2) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))
(*.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 (+.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64)) (.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) #s(literal -4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)) (.f64 (-.f64 lambda2 lambda1) #s(literal 2 binary64))) #s(literal -4 binary64))
(/.f64 (+.f64 (.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))) (+.f64 (.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))) (+.f64 (.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 (+.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64)) (.f64 #s(literal -2 binary64) (-.f64 lambda2 lambda1))) #s(literal 4 binary64))
(/.f64 (+.f64 (.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 (+.f64 (.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 (+.f64 (.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))) (+.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 lambda2 lambda2) (*.f64 lambda1 lambda2))))
(134-z0z1z2z3z4 #s(literal 1 binary64) (-.f64 lambda2 lambda1) #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 1 binary64) (-.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))
(134-z0z1z2z3z4 #s(literal 1 binary64) (-.f64 lambda1 lambda2) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 1 binary64) (-.f64 lambda1 lambda2) #s(literal 1/2 binary64) #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))
(134-z0z1z2z3z4 #s(literal 1 binary64) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2) (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 1 binary64) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2) #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))
(134-z0z1z2z3z4 #s(literal 2 binary64) #s(literal 1/2 binary64) lambda1 (neg.f64 lambda2) #s(literal -1/2 binary64))
(134-z0z1z2z3z4 #s(literal 2 binary64) #s(literal 1/2 binary64) lambda1 #s(literal -1/2 binary64) (neg.f64 lambda2))
(134-z0z1z2z3z4 #s(literal 2 binary64) #s(literal 1/2 binary64) lambda1 lambda2 #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 2 binary64) #s(literal 1/2 binary64) lambda1 #s(literal 1/2 binary64) lambda2)
(134-z0z1z2z3z4 #s(literal 2 binary64) lambda1 #s(literal 1/2 binary64) (neg.f64 lambda2) #s(literal -1/2 binary64))
(134-z0z1z2z3z4 #s(literal 2 binary64) lambda1 #s(literal 1/2 binary64) #s(literal -1/2 binary64) (neg.f64 lambda2))
(134-z0z1z2z3z4 #s(literal 2 binary64) lambda1 #s(literal 1/2 binary64) lambda2 #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 2 binary64) lambda1 #s(literal 1/2 binary64) #s(literal 1/2 binary64) lambda2)
(neg.f64 (-.f64 lambda2 lambda1))
(-.f64 (+.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) lambda1)) (*.f64 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 (.f64 #s(literal 1/2 binary64) lambda1) (-.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (*.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 (-.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 (-.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 #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 (-.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 #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 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.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 (.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 (+.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)))))))
(neg.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)))))
(sin.f64 (+.f64 (-.f64 lambda2 lambda1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (-.f64 (-.f64 lambda1 lambda2) (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(-.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))) (-.f64 #s(literal 1/2 binary64) (.f64 (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 #s(literal -1/2 binary64) (PI.f64)))) (.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 (.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 #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))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (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)))) (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)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (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)))) (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)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (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)))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (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)))) (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)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (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)))) (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)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (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)))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (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)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.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 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (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 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 (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 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))) (+.f64 (.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))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (+.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 1/2 binary64))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (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) lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (+.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 1/2 binary64))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (+.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 1/2 binary64) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (+.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 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (+.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 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (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) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(neg.f64 (-.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #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 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 (sin.f64 (.f64 (-.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))))))
(+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (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 (*.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 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))
(.f64 (+.f64 (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (-.f64 (-.f64 (*.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 (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (-.f64 (-.f64 (.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) (fabs.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (-.f64 (neg.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) phi1)) (cos.f64 (-.f64 (fabs.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 (fabs.f64 phi1))) (cos.f64 (-.f64 phi2 (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) phi2)) (cos.f64 (-.f64 (fabs.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) phi2)) (cos.f64 (-.f64 (neg.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 (fabs.f64 phi2))) (cos.f64 (-.f64 phi1 (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))) (cos.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))) (cos.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))) (cos.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))) (cos.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fabs.f64 phi1))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (neg.f64 phi2))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (fabs.f64 phi2))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (fabs.f64 phi2))) (sin.f64 (+.f64 (-.f64 (.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 (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (-.f64 (-.f64 (.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 (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (-.f64 (-.f64 (.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)))))
(134-z0z1z2z3z4 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1)) (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1)) (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (cos.f64 phi2) (neg.f64 (sin.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (cos.f64 phi2) (neg.f64 (sin.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(+.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1))))
(+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1))) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)))
(+.f64 (/.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) #s(literal 2 binary64)) (/.f64 (sin.f64 (+.f64 (-.f64 (.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 phi1)) #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 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (.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 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))
(.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))
(.f64 (cos.f64 phi1) (.f64 (.f64 (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 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(134-z0z1z2z3z4 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1)) (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1)) (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (neg.f64 (sin.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (neg.f64 (sin.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (+.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 1/2 binary64) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (+.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 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (+.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 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (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) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(neg.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))
(+.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 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.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))) (cos.f64 phi1)) (cos.f64 phi2))))
(+.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 #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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))
(*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))
(/.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 (.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))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 #s(literal 1/2 binary64) phi1)) (+.f64 (.f64 (.f64 phi2 #s(literal 1/2 binary64)) (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) phi1) (*.f64 phi2 #s(literal 1/2 binary64))))))
(/.f64 (-.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 #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))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (-.f64 phi2 phi1) #s(literal -1/2 binary64) (-.f64 phi2 phi1) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (-.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal -1/2 binary64) (-.f64 phi1 phi2))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (-.f64 phi1 phi2) (-.f64 phi2 phi1) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (-.f64 phi1 phi2) #s(literal -1/2 binary64) (-.f64 phi1 phi2))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (-.f64 phi1 phi2) #s(literal 1/2 binary64) (-.f64 phi2 phi1) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (-.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/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)))
(-.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) (neg.f64 phi2)))
(+.f64 (.f64 #s(literal 1/2 binary64) phi1) (.f64 (neg.f64 phi2) #s(literal 1/2 binary64)))
(+.f64 (.f64 #s(literal 1/2 binary64) phi1) (neg.f64 (.f64 phi2 #s(literal 1/2 binary64))))
(+.f64 (*.f64 #s(literal 1/2 binary64) phi1) (/.f64 (neg.f64 phi2) #s(literal 2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (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 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) #s(literal 2 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 (-.f64 phi1 phi2) #s(literal 1 binary64))
(.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(/.f64 (+.f64 (.f64 (-.f64 phi2 phi1) #s(literal -2 binary64)) (.f64 (-.f64 phi2 phi1) #s(literal -2 binary64))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal -4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 phi1 phi2) #s(literal -2 binary64)) (.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal -4 binary64))
(/.f64 (+.f64 (.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 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))))
(/.f64 (+.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 (neg.f64 phi2) #s(literal 3 binary64))) (+.f64 (.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 (+.f64 (.f64 (-.f64 phi2 phi1) #s(literal -2 binary64)) (.f64 #s(literal -2 binary64) (-.f64 phi2 phi1))) #s(literal 4 binary64))
(/.f64 (+.f64 (.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 (+.f64 (.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 (+.f64 (.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))) (+.f64 (.f64 phi1 phi1) (+.f64 (.f64 phi2 phi2) (*.f64 phi1 phi2))))
(134-z0z1z2z3z4 #s(literal 1 binary64) (-.f64 phi2 phi1) #s(literal -1/2 binary64) (-.f64 phi2 phi1) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 1 binary64) (-.f64 phi2 phi1) #s(literal -1/2 binary64) #s(literal -1/2 binary64) (-.f64 phi1 phi2))
(134-z0z1z2z3z4 #s(literal 1 binary64) #s(literal 1/2 binary64) (-.f64 phi1 phi2) (-.f64 phi2 phi1) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 1 binary64) #s(literal 1/2 binary64) (-.f64 phi1 phi2) #s(literal -1/2 binary64) (-.f64 phi1 phi2))
(134-z0z1z2z3z4 #s(literal 1 binary64) (-.f64 phi1 phi2) #s(literal 1/2 binary64) (-.f64 phi2 phi1) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 1 binary64) (-.f64 phi1 phi2) #s(literal 1/2 binary64) #s(literal -1/2 binary64) (-.f64 phi1 phi2))
(134-z0z1z2z3z4 #s(literal 2 binary64) #s(literal 1/2 binary64) phi1 phi2 #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 2 binary64) phi1 #s(literal 1/2 binary64) phi2 #s(literal 1/2 binary64))
(neg.f64 (-.f64 phi2 phi1))
(-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.f64 #s(literal 1/2 binary64) phi1)) (*.f64 phi2 #s(literal 1/2 binary64)))
(-.f64 (.f64 #s(literal 1/2 binary64) phi1) (-.f64 (.f64 phi2 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.f64 #s(literal -1/2 binary64) (-.f64 phi1 phi2)))
(-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64)))
(-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (neg.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(-.f64 phi1 (neg.f64 (neg.f64 phi2)))
(-.f64 phi1 phi2)
(+.f64 (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) #s(literal 1 binary64)) (.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) #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 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(+.f64 (.f64 phi1 #s(literal 1 binary64)) (.f64 (neg.f64 phi2) #s(literal 1 binary64)))
(+.f64 (neg.f64 phi2) phi1)
(+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))
(+.f64 phi1 (neg.f64 phi2))
(.f64 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (-.f64 (cos.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 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (+.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64))))
(sin.f64 (-.f64 (-.f64 phi1 phi2) (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(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))))
(-.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)))
(-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 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 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(-.f64 (.f64 (cos.f64 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 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #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 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (-.f64 phi2 phi1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(+.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (-.f64 #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 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (cos.f64 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 (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))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (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)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (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)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (fabs.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (fabs.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (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)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (fabs.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (fabs.f64 (cos.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 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (fabs.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (fabs.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (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)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (neg.f64 (cos.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 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2))) #s(literal 1/2 binary64) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (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)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.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 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi1) (cos.f64 phi2) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (fabs.f64 (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 (-.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 #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 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)))) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.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 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (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 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.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))))))
(134-z0z1z2z3z4 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(neg.f64 (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(-.f64 #s(literal 1/2 binary64) (neg.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) #s(literal 2 binary64)))
(+.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 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 lambda2 lambda1)) #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 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 (.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64))) (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (+.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.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))) (+.f64 (.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (+.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 (.f64 (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))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (+.f64 (.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (.f64 (-.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(neg.f64 (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(-.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (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 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (pow.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(fabs.f64 (neg.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(fabs.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(exp.f64 (.f64 (log.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64)))
(*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64))) #s(literal 1 binary64))
(.f64 (fabs.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (fabs.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))
(.f64 (neg.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))) (neg.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))
(.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 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
(pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 #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 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (+.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64))) (+.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 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.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 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (+.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 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(neg.f64 (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64)))
(neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64))
(-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)))
(+.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
(+.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(+.f64 #s(literal 1/2 binary64) (neg.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #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 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1 binary64))) #s(literal 1 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1 binary64) (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (-.f64 (.f64 (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (.f64 #s(literal 1 binary64) (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(/.f64 (+.f64 (pow.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) (-.f64 (.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1 binary64) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 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))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (+.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (+.f64 (.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (.f64 #s(literal 1 binary64) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) (+.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(neg.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64))))
(-.f64 (-.f64 #s(literal 1 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(-.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(-.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(-.f64 #s(literal 1/2 binary64) (neg.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(+.f64 (-.f64 #s(literal 1 binary64) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64))) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(+.f64 (-.f64 #s(literal 1 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(+.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64))
(+.f64 (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(+.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(+.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (-.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 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(.f64 (pow.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(fabs.f64 (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(exp.f64 (.f64 (log.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) #s(literal 1/2 binary64)))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 R R)) R)
(*.f64 #s(literal 2 binary64) R)
(*.f64 R #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 R R) (.f64 R R)) (-.f64 R R))
(/.f64 (+.f64 (pow.f64 R #s(literal 3 binary64)) (pow.f64 R #s(literal 3 binary64))) (+.f64 (.f64 R R) (-.f64 (.f64 R R) (*.f64 R R))))
(-.f64 R (neg.f64 R))
(+.f64 (.f64 R #s(literal 1 binary64)) (.f64 R #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) R) (.f64 #s(literal 1 binary64) R))
(+.f64 R R)
(.f64 (.f64 R (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) #s(literal 2 binary64))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R) #s(literal 2 binary64))
(.f64 (+.f64 R R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 R R))
(.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 #s(literal 2 binary64) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R))
(.f64 R (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)))
(+.f64 (.f64 R (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 R (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 #s(literal 1/2 binary64) lambda1))
(*.f64 (-.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 #s(literal 1/2 binary64) lambda1) #s(literal 2 binary64)) lambda2) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (.f64 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 #s(literal 1/2 binary64) lambda1) #s(literal 3 binary64)) (pow.f64 (.f64 lambda2 #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (*.f64 lambda2 #s(literal 1/2 binary64))))))
(/.f64 (-.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)))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1) #s(literal -1/2 binary64) (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1) #s(literal -1/2 binary64) #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2) #s(literal 1/2 binary64) (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2) #s(literal 1/2 binary64) #s(literal -1/2 binary64) (-.f64 lambda1 lambda2))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2) (-.f64 lambda2 lambda1) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) #s(literal 1/2 binary64) (-.f64 lambda1 lambda2) #s(literal -1/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 #s(literal 1/2 binary64) lambda1)))
(-.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 lambda2 #s(literal 1/2 binary64)))
(+.f64 (*.f64 #s(literal 1/2 binary64) lambda1) (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))
(+.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 #s(literal -1/2 binary64) lambda2))
(.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 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))
(.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 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.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 #s(literal 1/2 binary64) lambda1))) (.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 #s(literal 1/2 binary64) lambda1))) #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))) (+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (-.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 #s(literal 1/2 binary64) lambda1))) (.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 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.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 #s(literal 1/2 binary64) lambda1))) #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))) (+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (+.f64 (.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 #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)))))))
(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)))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.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 #s(literal 1/2 binary64) lambda1))) (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 #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 (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 #s(literal 1/2 binary64) lambda1))))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.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))) (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 (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)))) #s(literal 2 binary64))
(/.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 (+.f64 (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (-.f64 (-.f64 (.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 (+.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))
(134-z0z1z2z3z4 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1)) (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1)) (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (neg.f64 (sin.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (neg.f64 (sin.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.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 1/2 binary64) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.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 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.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 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (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) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2))))
(+.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))
(+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.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 (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 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (.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 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))
(.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))
(.f64 (cos.f64 phi1) (.f64 (.f64 (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 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(134-z0z1z2z3z4 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1)) (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1)) (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (neg.f64 (sin.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (neg.f64 (sin.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (+.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 1/2 binary64) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (+.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 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (+.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 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (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) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(neg.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))
(+.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 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.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))) (cos.f64 phi1)) (cos.f64 phi2))))
(+.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 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 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 lambda2 lambda1)) #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 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 (.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64))) (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (+.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.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))) (+.f64 (.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (+.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 (.f64 (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))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (+.f64 (.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (.f64 (-.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(neg.f64 (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(-.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (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 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (pow.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(fabs.f64 (neg.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(fabs.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(exp.f64 (.f64 (log.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #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 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))
(.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 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.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 #s(literal 1/2 binary64) lambda1))) (.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 #s(literal 1/2 binary64) lambda1))) #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))) (+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (-.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 #s(literal 1/2 binary64) lambda1))) (.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 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.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 #s(literal 1/2 binary64) lambda1))) #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))) (+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (+.f64 (.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 #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)))))))
(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)))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.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 #s(literal 1/2 binary64) lambda1))) (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 #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 (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 #s(literal 1/2 binary64) lambda1))))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.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 #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 (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 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))) (+.f64 (.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))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (+.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 1/2 binary64))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (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) lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (+.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 1/2 binary64))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (+.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 1/2 binary64) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (+.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 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (+.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 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (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) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(neg.f64 (-.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #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 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 (sin.f64 (.f64 (-.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))))))
(+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (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 (*.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 (.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 (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 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))
(.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (+.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 1/2 binary64) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (+.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 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (+.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 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (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) lambda1)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1)) (neg.f64 (cos.f64 phi1)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1)) (cos.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (cos.f64 phi1)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (neg.f64 (sin.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(neg.f64 (.f64 (cos.f64 phi1) (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))
(neg.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (cos.f64 phi1)))
(+.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))
(+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 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))
(sin.f64 (*.f64 #s(literal 1/2 binary64) 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 (+.f64 (.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)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #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 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 (-.f64 #s(literal 1/2 binary64) (.f64 (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 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)) #s(literal 3 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) phi1))))) (-.f64 #s(literal 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 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))))
(/.f64 (-.f64 (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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))) (+.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (+.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)))))) (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 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 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #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 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))) (+.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #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 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 (-.f64 (*.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)) (-.f64 #s(literal 1/2 binary64) (*.f64 (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 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))
(-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)) (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 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))
(+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)) (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 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)) (-.f64 #s(literal 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 (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 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(literal 1 binary64))) #s(literal 1 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 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) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))) (-.f64 #s(literal 1 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(literal 1 binary64))) #s(literal 1 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (-.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 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)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))) (-.f64 #s(literal 1 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 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(literal 1 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 #s(literal 1 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #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 (-.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 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (-.f64 (.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 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)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (.f64 #s(literal 1 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 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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))) (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(literal 1 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 #s(literal 1 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #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 (+.f64 (-.f64 #s(literal 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 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 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (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) phi1))))) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (+.f64 (-.f64 #s(literal 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 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1 binary64) #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) phi1))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (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) phi1))))) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))))
(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) phi1))))) (-.f64 #s(literal 1 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))
(neg.f64 (-.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(literal 1 binary64)))
(-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (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 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(literal 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) (+.f64 (-.f64 #s(literal 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 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))
(+.f64 (-.f64 #s(literal 1 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 (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 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(literal 1 binary64))
(+.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 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (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 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #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 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #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 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) #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 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/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 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))))
(sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/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 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))
(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 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))))
(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 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))))
(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 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))) #s(literal 1/2 binary64)))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))))) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))))
(/.f64 (-.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))))) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))))) (-.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) #s(literal 3 binary64)) (pow.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) #s(literal 3 binary64))) (+.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))))) (-.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))))) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))))))))
(-.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) (neg.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) #s(literal 1 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))))))
(+.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))))
(.f64 (.f64 R (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))))) #s(literal 2 binary64))
(.f64 (+.f64 R R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) (+.f64 R R))
(.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))))))
(.f64 #s(literal 2 binary64) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) R))
(.f64 R (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) #s(literal 2 binary64)))
(+.f64 (.f64 R (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))))) (.f64 R (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) R) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) R))
(neg.f64 phi1)
(PI.f64)
(.f64 (.f64 #s(literal 1/2 binary64) (cbrt.f64 (*.f64 (PI.f64) (PI.f64)))) (cbrt.f64 (PI.f64)))
(.f64 (cbrt.f64 (.f64 (PI.f64) (PI.f64))) (*.f64 (cbrt.f64 (PI.f64)) #s(literal 1/2 binary64)))
(.f64 (cbrt.f64 (.f64 (PI.f64) (PI.f64))) (/.f64 (cbrt.f64 (PI.f64)) #s(literal 2 binary64)))
(*.f64 (PI.f64) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (PI.f64))
(/.f64 (*.f64 (PI.f64) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (*.f64 #s(literal 1 binary64) (PI.f64)) #s(literal 2 binary64))
(/.f64 (neg.f64 (PI.f64)) #s(literal -2 binary64))
(/.f64 (PI.f64) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (PI.f64)))
(log.f64 (pow.f64 (exp.f64 (PI.f64)) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (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 (.f64 #s(literal -1/2 binary64) (PI.f64)) (neg.f64 phi1))) (neg.f64 phi1))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 phi1))) (neg.f64 phi1))
(/.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))) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 phi1)))
(/.f64 (-.f64 (.f64 (neg.f64 phi1) (neg.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) (.f64 #s(literal -1/2 binary64) (PI.f64)))) (+.f64 (neg.f64 phi1) (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(/.f64 (+.f64 (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (neg.f64 phi1) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 (.f64 (neg.f64 phi1) (neg.f64 phi1)) (.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (neg.f64 phi1) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) #s(literal 3 binary64))) (+.f64 (.f64 (neg.f64 phi1) (neg.f64 phi1)) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)) (.f64 #s(literal -1/2 binary64) (PI.f64))) (.f64 (neg.f64 phi1) (*.f64 #s(literal -1/2 binary64) (PI.f64))))))
(/.f64 (-.f64 (.f64 (neg.f64 phi1) (neg.f64 phi1)) (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (-.f64 (neg.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (neg.f64 phi1) #s(literal 3 binary64)) (pow.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (neg.f64 phi1) (neg.f64 phi1)) (-.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 (neg.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))
(neg.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64)) (neg.f64 phi1)))
(-.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 (neg.f64 phi1) (*.f64 #s(literal -1/2 binary64) (PI.f64)))
(+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 phi1))
(+.f64 (neg.f64 phi1) (*.f64 (neg.f64 (neg.f64 (PI.f64))) #s(literal 1/2 binary64)))
(+.f64 (neg.f64 phi1) (neg.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(+.f64 (neg.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1))))) (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1)))) (.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 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1)))) (-.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 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1))) (.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1))))))
(sin.f64 (+.f64 (fabs.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))
(sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1))) (.f64 (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1))) (neg.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1))))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))))
(cos.f64 (neg.f64 (fabs.f64 phi1)))
(cos.f64 (neg.f64 (neg.f64 phi1)))
(cos.f64 (fabs.f64 (fabs.f64 phi1)))
(cos.f64 (fabs.f64 phi1))
(cos.f64 (neg.f64 phi1))
(cos.f64 phi1)
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.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 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1))))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1))) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)))
(*.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))
(.f64 (+.f64 (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (-.f64 (-.f64 (*.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 (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (-.f64 (-.f64 (.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) (fabs.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (-.f64 (neg.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) phi1)) (cos.f64 (-.f64 (fabs.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi2 (fabs.f64 phi1))) (cos.f64 (-.f64 phi2 (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) phi2)) (cos.f64 (-.f64 (fabs.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) phi2)) (cos.f64 (-.f64 (neg.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 (fabs.f64 phi2))) (cos.f64 (-.f64 phi1 (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))) (cos.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))) (cos.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2))) (cos.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))) (cos.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fabs.f64 phi1))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (neg.f64 phi2))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (fabs.f64 phi2))) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (fabs.f64 phi2))) (sin.f64 (+.f64 (-.f64 (.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 (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (-.f64 (-.f64 (.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 (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (-.f64 (-.f64 (.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)))))
(134-z0z1z2z3z4 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1)) (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1)) (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (cos.f64 phi2) (neg.f64 (sin.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (cos.f64 phi2) (neg.f64 (sin.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(+.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1))))
(+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1))) (cos.f64 phi2)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)))
(+.f64 (/.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) #s(literal 2 binary64)) (/.f64 (sin.f64 (+.f64 (-.f64 (.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 phi1)) #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 (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 (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)))) #s(literal 2 binary64))
(/.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 (+.f64 (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (-.f64 (-.f64 (.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 (+.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))
(134-z0z1z2z3z4 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1)) (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1)) (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (neg.f64 (sin.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2)) (neg.f64 (sin.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.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 1/2 binary64) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.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 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.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 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (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) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(neg.f64 (.f64 (neg.f64 (cos.f64 phi1)) (.f64 (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi2))))
(+.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))
(+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.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 (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 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (.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 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))
(.f64 (cos.f64 phi2) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))
(.f64 (cos.f64 phi1) (.f64 (.f64 (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 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)))
(/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(134-z0z1z2z3z4 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1)) (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1)) (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (neg.f64 (sin.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (cos.f64 phi1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi2)) (neg.f64 (sin.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1) (sin.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (+.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 1/2 binary64) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (+.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 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (+.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 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (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) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(neg.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2)) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))
(+.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 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 phi1)) (cos.f64 phi2))) (.f64 (.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))) (cos.f64 phi1)) (cos.f64 phi2))))
(+.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 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 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 lambda2 lambda1)) #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 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 (.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64))) (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (+.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.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))) (+.f64 (.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (+.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 (.f64 (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))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (+.f64 (.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (.f64 (-.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(neg.f64 (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(-.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (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 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (pow.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(fabs.f64 (neg.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(fabs.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(exp.f64 (.f64 (log.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #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 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1 binary64))) #s(literal 1 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1 binary64) (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (-.f64 (.f64 (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (.f64 #s(literal 1 binary64) (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(/.f64 (+.f64 (pow.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) (-.f64 (.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))) (+.f64 #s(literal 1 binary64) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 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))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (+.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (+.f64 (.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (.f64 #s(literal 1 binary64) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) (+.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(neg.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64))))
(-.f64 (-.f64 #s(literal 1 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 #s(literal 1 binary64) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(-.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(-.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(-.f64 #s(literal 1/2 binary64) (neg.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(+.f64 (-.f64 #s(literal 1 binary64) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64))) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(+.f64 (-.f64 #s(literal 1 binary64) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(+.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64))
(+.f64 (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(+.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(+.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (-.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 (cos.f64 phi2) (cos.f64 phi1)))))
(+.f64 #s(literal 1 binary64) (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(.f64 (pow.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(fabs.f64 (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(exp.f64 (.f64 (log.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))) #s(literal 1/2 binary64)))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (-.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))) (-.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 3 binary64)) (pow.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 3 binary64))) (+.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (-.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(-.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (neg.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 1 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(.f64 (.f64 R (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) #s(literal 2 binary64))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R) #s(literal 2 binary64))
(.f64 (+.f64 R R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 R R))
(.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 #s(literal 2 binary64) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R))
(.f64 R (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)))
(+.f64 (.f64 R (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 R (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R))
#s(literal -1/2 binary64)
(*.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)))
(sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))
(sin.f64 (+.f64 (.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (-.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) (PI.f64))))
(sin.f64 (-.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64))))
(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 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) lambda1)
(.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))
(.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))) lambda1)
(.f64 (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) lambda1) #s(literal 1/2 binary64))
(.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 #s(literal 1/2 binary64) lambda1))
(.f64 (.f64 #s(literal 1/2 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
(.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) lambda1))
(.f64 lambda1 (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 1/2 binary64)))
(.f64 lambda1 (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))
(/.f64 (.f64 (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) lambda1) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) lambda1)) #s(literal 2 binary64))
(/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) lambda1) #s(literal 2 binary64))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) lambda1)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) lambda1)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))
(/.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 3 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) lambda1))) (-.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))
(/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) #s(literal 3 binary64))) (+.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (+.f64 (.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))
(/.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) lambda1)))) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) lambda1))))
(/.f64 (+.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 3 binary64))) (+.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (*.f64 #s(literal 1/2 binary64) lambda1))))))
(neg.f64 (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))
(-.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) lambda1)) (neg.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))
(-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))
(+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (neg.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))
(+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) lambda1)))
#s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))
(.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi1)) (cos.f64 phi2))
(.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))
(.f64 (cos.f64 phi1) (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)))
(/.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))) #s(literal 2 binary64))
(134-z0z1z2z3z4 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1)) (neg.f64 (cos.f64 phi1)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (sin.f64 phi1)) (cos.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(134-z0z1z2z3z4 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (neg.f64 (sin.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (neg.f64 (cos.f64 phi1)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) (neg.f64 (sin.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64))) (cos.f64 phi1) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))
(.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi1)) (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)))
(.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))))
(.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 phi1) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64))))
(.f64 (cos.f64 phi1) (.f64 (.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))))))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64))))
(/.f64 (.f64 (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64))) #s(literal 2 binary64))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 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 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (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 (.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64))))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)))))
(/.f64 (+.f64 (pow.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 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 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64))) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (+.f64 (.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 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 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (-.f64 (.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 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 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(neg.f64 (neg.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))
(-.f64 (+.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 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 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(-.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 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 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)))))
(-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64))))
(+.f64 (+.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 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 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (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 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal -1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 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 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) 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 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (neg.f64 (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (pow.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))))
(sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))))
(fabs.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))
(exp.f64 (.f64 (log.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) #s(literal 1 binary64))) #s(literal 1 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #s(literal 1 binary64))) #s(literal 1 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (neg.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (neg.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1 binary64) (neg.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) (.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (+.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (+.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (-.f64 (.f64 (neg.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (neg.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))) (.f64 #s(literal 1 binary64) (neg.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) (+.f64 (.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (+.f64 (.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (.f64 #s(literal 1 binary64) (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))))
(neg.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64))))
(neg.f64 (neg.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(-.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 #s(literal 1 binary64) (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))
(+.f64 (neg.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(+.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (neg.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64))))
(+.f64 #s(literal 1 binary64) (neg.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))
(.f64 (pow.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(fabs.f64 (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(exp.f64 (.f64 (log.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) #s(literal 1/2 binary64)))
(atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))) (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(.f64 (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (-.f64 (.f64 (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))) (-.f64 (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 3 binary64)) (pow.f64 (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 3 binary64))) (+.f64 (.f64 (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (-.f64 (.f64 (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
(-.f64 (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (neg.f64 (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 1 binary64)) (.f64 (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(.f64 (.f64 R (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) #s(literal 2 binary64))
(.f64 (+.f64 R R) (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 R R))
(.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(.f64 #s(literal 2 binary64) (.f64 (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R))
(.f64 R (.f64 (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)))
(+.f64 (.f64 R (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 R (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R) (.f64 (atan2.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R))

eval2.7s (5.0%)

Memory

128.0MiB live, 3 504.1MiB allocated; 569ms collecting garbage

Samples

1.8s

31 232×

valid

Compiler

Compiled 311 315 to 24 043 computations (92.3% saved)

Precisions

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

ival-mult!: 441.0ms (75.2% of total)

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

adjust: 50.0ms (8.5% of total)

prune544.0ms (1.0%)

Memory

2.4MiB live, 779.8MiB allocated; 118ms collecting garbage

Pruning

132 alts after pruning (132 fresh and 0 done)

	Pruned	Kept	Total
New	2 372	111	2 483
Fresh	53	21	74
Picked	5	0	5
Done	0	0	0
Total	2 430	132	2 562

Accuracy

99.5%

Counts

2 562 → 132

Alt Table

Click to see full alt table

Status	Accuracy	Program
	54.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (/.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 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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 (-.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 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	54.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 R R))
	43.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) (+.f64 R R))
	31.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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) (sin.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	30.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.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 2 binary64) R))
	49.1%	(.f64 (atan2.f64 (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 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	54.2%	(.f64 (atan2.f64 (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 (+.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 #s(literal 1/2 binary64)))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 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 (+.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 #s(literal 1/2 binary64)))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	46.6%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (sin.f64 (+.f64 (.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)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.f64 (-.f64 #s(literal 1/2 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 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2)) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	47.0%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (sin.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi1))) (-.f64 #s(literal 1/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 (sin.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
▶	45.7%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 (PI.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) (-.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) (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))))))) (.f64 #s(literal 2 binary64) R))
	45.2%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 (.f64 (PI.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) (-.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) (sin.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))))))) (.f64 #s(literal 2 binary64) R))
▶	69.7%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.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 #s(literal 2 binary64) R))
	69.7%	(.f64 (atan2.f64 (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 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 (sin.f64 phi2) (sin.f64 phi1))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.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 #s(literal 2 binary64) R))
	26.1%	(.f64 (atan2.f64 (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 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 phi1 phi2) (.f64 #s(literal -1/2 binary64) (PI.f64)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (-.f64 (-.f64 phi1 phi2) (.f64 #s(literal -1/2 binary64) (PI.f64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.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))
	26.8%	(.f64 (atan2.f64 (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 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)))))))) (sqrt.f64 (-.f64 (+.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)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.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))
	54.4%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	54.4%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (+.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 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.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))
	54.4%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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 (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))) (+.f64 (.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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.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))
	54.4%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.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))
	54.4%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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 binary64) (/.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.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))
	37.1%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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(approx (+ 1/2 ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (sin.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 #s(literal 2 binary64) R))
	41.0%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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(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 #s(literal 2 binary64) R))
	42.4%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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(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 #s(literal 2 binary64) R))
	37.1%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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 #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 (.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))))))))) (.f64 #s(literal 2 binary64) R))
	35.3%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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 #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 (.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))))))))) (.f64 #s(literal 2 binary64) R))
	40.4%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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 #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)))))))))) (*.f64 #s(literal 2 binary64) R))
	45.3%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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 #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))))))))) (*.f64 #s(literal 2 binary64) R))
	41.8%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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 #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))))))))) (.f64 #s(literal 2 binary64) R))
	44.3%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) 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 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) 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 #s(literal 2 binary64) R))
	32.0%	(.f64 (atan2.f64 (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 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)))) (+.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)))))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #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)))))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.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))
	33.1%	(.f64 (atan2.f64 (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 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)))) (+.f64 (cos.f64 (neg.f64 phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2)))))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #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)))))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.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))
	34.1%	(.f64 (atan2.f64 (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 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)))) (+.f64 (cos.f64 phi1) (.f64 phi2 (sin.f64 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (+.f64 (cos.f64 phi1) (.f64 phi2 (sin.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 #s(literal 2 binary64) R))
	38.0%	(.f64 (atan2.f64 (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 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))))))) (sqrt.f64 (-.f64 (+.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))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.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))
	38.5%	(.f64 (atan2.f64 (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 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)))))) (sqrt.f64 (-.f64 (+.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)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.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))
	38.7%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (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)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.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))
	29.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R))
	29.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.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 2 binary64) R))
	31.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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 #s(literal -1 binary64) (.f64 lambda1 (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)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.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 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	36.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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 (-.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (sin.f64 lambda1))))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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) #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (sin.f64 lambda1))))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	36.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 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)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.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 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	37.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.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 2 binary64) R))
	38.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (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)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (cos.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	44.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (cos.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)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (cos.f64 lambda1)))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	37.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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 lambda2 (sin.f64 lambda1)))) (.f64 #s(literal 1/2 binary64) (cos.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)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 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 lambda2 (sin.f64 lambda1)))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R))
	45.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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 #s(literal 1/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)))))) #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 #s(literal 2 binary64) R))
▶	45.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/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)))))) #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))))))))) (*.f64 #s(literal 2 binary64) R))
	37.4%	(.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 #s(literal 1/2 binary64) (+.f64 (.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)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.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))
	39.1%	(.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 #s(literal 1/2 binary64) (+.f64 (.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))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.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))
	40.0%	(.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 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 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))
	41.3%	(.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 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (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)))))) (.f64 #s(literal 2 binary64) R))
	44.4%	(.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 #s(literal 1/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)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.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))
	54.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.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) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 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 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 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)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	54.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	54.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
	54.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))))
	69.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))) (+.f64 (.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))))) (+.f64 (.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))) (+.f64 (.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))))) (+.f64 (.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))))))))))
	74.6%	(.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))))))))))
▶	98.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.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 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.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))))))))))))
	48.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	44.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #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)))))))))))))
	22.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 phi2 #s(literal 3 binary64))) (+.f64 (.f64 phi1 phi1) (+.f64 (.f64 phi2 phi2) (.f64 phi1 phi2)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	41.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) (.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 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)))) #s(literal 4 binary64)))) (sqrt.f64 (-.f64 #s(literal 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 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)) (.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 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)))) #s(literal 4 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 (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 (+.f64 (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) #s(literal 2 binary64))))))))
	79.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 (134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (-.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 (134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (-.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))))))))))))
	57.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
	44.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #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 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1)) (sin.f64 (+.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi2) phi1))) #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	44.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (+.f64 (+.f64 (.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 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (+.f64 (+.f64 (.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))))))))))
	39.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (+.f64 (+.f64 (.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	59.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) (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 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (sin.f64 (-.f64 (.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) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (sin.f64 (-.f64 (.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)))))))))
	43.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)))) (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 (+.f64 (neg.f64 phi1) (.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 (-.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 (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) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
	41.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.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) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
	45.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (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) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.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)))))))))
	79.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) (+.f64 (.f64 (sin.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 (PI.f64) #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 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) (+.f64 (.f64 (sin.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 (PI.f64) #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 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))))))))
	47.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) (sin.f64 (+.f64 (.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	51.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (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 (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))))))))))
	47.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	72.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 (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))) (+.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (+.f64 (.f64 (.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))) (+.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (+.f64 (.f64 (.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))) (+.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (+.f64 (.f64 (.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))) (+.f64 (.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))))) (+.f64 (.f64 (.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)))))))))))))))
	79.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)) (/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.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 #s(literal 1/2 binary64) lambda1))) (.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 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.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 #s(literal 1/2 binary64) lambda1))) (.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 (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 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.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 #s(literal 1/2 binary64) lambda1))) (.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 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))) (.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 #s(literal 1/2 binary64) lambda1))) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))))))))))))
	79.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)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (+.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.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))) (+.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.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 (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))) (+.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.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))) (+.f64 (.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.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))))))))))))
	54.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 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(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 (.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 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))))))
	61.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)) (-.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 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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)))))))))
	59.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.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 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.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)))))))))
	79.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)) (.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 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.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 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) 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)) (.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 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.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 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))
	47.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 (+.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 (+.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	48.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)))))) (.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 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #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 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))))))
	59.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.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))))))))))
	59.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #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) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.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 #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)))))))))))))
	59.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 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
	48.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 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))))))
	41.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.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) phi1))))) (-.f64 #s(literal 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 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))))))))
	47.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (+.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 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (134-z0z1z2z3z4 (.f64 (cos.f64 phi1) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	20.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) lambda1) #s(literal 3 binary64)) (pow.f64 (.f64 lambda2 #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 lambda2 #s(literal 1/2 binary64))))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
▶	44.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.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)))))))))
	45.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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) phi1))) #s(literal 2 binary64)))))))))
	37.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx ( 1/2 (- lambda1 lambda2)) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	34.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 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 (+ (* (cos phi1) (pow (sin (* 1/2 (- lambda1 lambda2))) 2)) (pow (sin (* 1/2 phi1)) 2))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))))))
	35.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.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)))))))))
	36.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)) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))) (pow.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (pow.f64 #s(approx (sin (/ (- lambda1 lambda2) 2)) (-.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64)))))
	21.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)) #s(approx (sin (/ (- lambda1 lambda2) 2)) #s(approx (+ (sin ( -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2))))) (+.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/16 binary64) (.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) #s(approx (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2))))) (+.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/16 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)) #s(approx (sin (/ (- lambda1 lambda2) 2)) #s(approx (+ (sin ( -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2))))) (+.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/16 binary64) (.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) #s(approx (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2))))) (+.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/16 binary64) (.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))))))))
	30.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 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (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)))))))))
	64.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 #s(approx (* (cos phi1) (cos phi2)) (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 #s(approx (* (cos phi1) (cos phi2)) (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))))))))))))
	50.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	41.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) (.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))))))))))
	47.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 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 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	41.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(approx ( (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (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 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))))
	36.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 phi1 (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	51.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) (.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 #s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.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.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/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 (/.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 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/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))))))))))
	76.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #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 (-.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 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #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))))))))))))
	76.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.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 phi2 phi1)) #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))))))))))))
	56.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #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) (+.f64 (-.f64 #s(literal 1/2 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))))))))))
	23.0%	(.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	54.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fabs.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))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fabs.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)))))))))))))
	36.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	57.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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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)))))))))
	57.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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (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 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (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)))))))))
	42.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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.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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
	51.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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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))))))))))
	50.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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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))))) (+.f64 (.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 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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))))) (+.f64 (.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))))))))))
	43.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 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	45.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)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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.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)))) (+.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	39.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(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 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))
	54.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (exp.f64 (.f64 (log.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)))))))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	43.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (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 (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))))))))))
	42.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (+.f64 (.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 (+.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))))))))))
	57.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 1/2)) (cos (* lambda2 1/2))) (* (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 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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) (+.f64 (pow.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))))))))))))
	57.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 1/2)) (cos (* lambda2 1/2))) (* (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 (.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 (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))))))))))))

Samples

114.0ms

2 048×

valid

Compiler

Compiled 28 110 to 11 964 computations (57.4% saved)

Precisions

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

ival-mult!: 33.0ms (79.6% of total)

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

adjust: 2.0ms (4.8% of total)

series556.0ms (1.0%)

Memory

28.7MiB live, 714.1MiB allocated; 90ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	4716	70588

Stop Event

1×	iter-limit

Counts

112 → 913

Calls

Call 1

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

Outputs
#s(approx R R)
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (+.f64 (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
#s(approx (* 2 R) (*.f64 #s(literal 2 binary64) R))
#s(approx (* (atan2 (sqrt (+ (* (- 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 (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))))) (* 2 R)) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/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))))) (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 (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1))))))) (* 2 R)) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #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))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.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 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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))))) (sqrt (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))))) (* 2 R)) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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 lambda1 lambda1)
#s(approx (* lambda1 1/2) (*.f64 #s(literal 1/2 binary64) lambda1))
#s(approx (sin (* lambda1 1/2)) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))
#s(approx (sin (* lambda1 1/2)) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/3840 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/48 binary64))))))
#s(approx (sin (* lambda1 1/2)) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/3840 binary64) (.f64 #s(literal -1/645120 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1/48 binary64))))))
#s(approx (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (.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 (+.f64 (.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 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.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 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/48 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.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 (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 (* (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)) (+.f64 (.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)) (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.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 (- (* (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 (+.f64 (.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 (+.f64 (.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 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))))) (+.f64 (.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))))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))) (.f64 lambda1 (+.f64 (.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))))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))))) (.f64 lambda1 (+.f64 (.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 (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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))))) (+.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))))))) (.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))))) (+.f64 (.f64 lambda1 (+.f64 (.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) (+.f64 (.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))))) (+.f64 (.f64 lambda1 (+.f64 (.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 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.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 (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
#s(approx (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 lambda1 (+.f64 (.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) (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 lambda1 (+.f64 (.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 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (.f64 lambda1 (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (.f64 lambda1 (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))))) (pow.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))))
#s(approx (- 1 (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.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))))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.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) (+.f64 (.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))))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (sqrt (- 1 (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 lambda1 (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (+.f64 (.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 #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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))))))
#s(approx (atan2 (sqrt (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (+.f64 (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))
#s(approx (* 2 (atan2 (sqrt (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (+.f64 (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))
#s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/6 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))) (sin.f64 (neg.f64 lambda2))))))
#s(approx (* 1/2 (cos (- lambda1 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2))))
#s(approx (* 1/2 (cos (- lambda1 lambda2))) (+.f64 (.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 (- lambda1 lambda2))) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2))) (.f64 lambda1 (+.f64 (.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 (- lambda1 lambda2))) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (+.f64 (.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 (- 1/2 (* 1/2 (cos (- 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 (- 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 (- 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 (- 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 (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2))))))
#s(approx (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))))
#s(approx (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))))
#s(approx (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/12 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))))))) (.f64 (cos.f64 phi1) (-.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))) (+.f64 (.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))) (+.f64 (.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 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.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 (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))) (- 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) (+.f64 (.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) (+.f64 (.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)))))))) (.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 (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/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)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/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 (+.f64 (.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 (+.f64 (.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 (+.f64 (.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 (- 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) (+.f64 (.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) (+.f64 (.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) (+.f64 (.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 (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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (+.f64 (.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 (+.f64 (.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 (+.f64 (.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/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 (+.f64 (.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 (atan2 (sqrt (+ (* (- 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 (- (+ 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 (-.f64 (+.f64 #s(literal 1/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))))) (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 (- lambda1 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2))
#s(approx (* 1/2 (- lambda1 lambda2)) (+.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 #s(literal 1/2 binary64) lambda1)))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.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) (sin (- (* (PI) 1/2) phi1)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.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) (sin (- (* (PI) 1/2) phi1)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.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) (sin (- (* (PI) 1/2) phi1)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/12 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.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) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/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) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/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) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/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) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/12 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/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) (sin (- (* (PI) 1/2) 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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/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) (sin (- (* (PI) 1/2) 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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/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 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/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) (sin (- (* (PI) 1/2) 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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/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 (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/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 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/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 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/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) (sin (- (* (PI) 1/2) 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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/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 (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/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 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/12 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/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 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/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 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/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 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/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 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/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 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.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) (sin (- (* (PI) 1/2) phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.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) (sin (- (* (PI) 1/2) phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.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 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.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) (sin (- (* (PI) 1/2) phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.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 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.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) (sin (- (* (PI) 1/2) phi1)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.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) (sin (- (* (PI) 1/2) 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 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.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 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.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) (sin (- (* (PI) 1/2) 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 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.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 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.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 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.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) (sin (- (* (PI) 1/2) 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 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))))))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/12 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.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 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))) (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 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.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 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.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 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2))))))))))))))))
#s(approx (atan2 (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1))))))) (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #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))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 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 (+.f64 (.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 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))) (.f64 #s(literal -1/48 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))))))
#s(approx (* (* (cos 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))) (+.f64 (.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))) (+.f64 (.f64 lambda1 (+.f64 (.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))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 lambda1 (+.f64 (.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 (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 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))) (+.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)))))) (.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))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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)))) (+.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)))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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)))) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 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 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 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 (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 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 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 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) (+.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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 (- lambda1 lambda2)) (/.f64 #s(literal -2 binary64) lambda2))
#s(approx (/ 2 (- lambda1 lambda2)) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) lambda2))))
#s(approx (/ 2 (- lambda1 lambda2)) (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -2 binary64) (/.f64 lambda1 (pow.f64 lambda2 #s(literal 3 binary64)))) (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))) (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) lambda2))))
#s(approx (/ 2 (- lambda1 lambda2)) (-.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -2 binary64) (/.f64 lambda1 (pow.f64 lambda2 #s(literal 4 binary64)))) (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)))))) (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))) (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) lambda2))))
#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) (+.f64 (.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) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.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) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 lambda1 (+.f64 (.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 (* (cos phi1) (pow (sin (/ 1 (/ 2 (- lambda1 lambda2)))) 2)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))
#s(approx (* (cos phi1) (pow (sin (/ 1 (/ 2 (- lambda1 lambda2)))) 2)) (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))
#s(approx (* (cos phi1) (pow (sin (/ 1 (/ 2 (- lambda1 lambda2)))) 2)) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))
#s(approx (* (cos phi1) (pow (sin (/ 1 (/ 2 (- lambda1 lambda2)))) 2)) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))
#s(approx (+ (* (cos phi1) (pow (sin (/ 1 (/ 2 (- lambda1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (+.f64 (.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)) (+.f64 (.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 (.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)) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (+.f64 (.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)) (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (+.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)))))) (+.f64 (.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 (+ (* (cos phi1) (pow (sin (/ 1 (/ 2 (- lambda1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2))) (-.f64 #s(literal 1 binary64) (+.f64 (.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 (+ (* (cos phi1) (pow (sin (/ 1 (/ 2 (- lambda1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 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))))))) (+.f64 (.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 (+ (* (cos phi1) (pow (sin (/ 1 (/ 2 (- lambda1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (+.f64 (.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 (+ (* (cos phi1) (pow (sin (/ 1 (/ 2 (- lambda1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 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 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2))))))) (+.f64 (.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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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)))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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) (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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) (+.f64 (.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) (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 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 (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (+.f64 (.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 #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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 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 #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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/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 (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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))
#s(approx (* 2 (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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.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 phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.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 phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.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)))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.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 phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.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 (cos.f64 phi1) (.f64 (cos.f64 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 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.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 phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.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 phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.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 phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 phi2))))))) (.f64 lambda1 (+.f64 (.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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.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 phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 phi2))))))) (.f64 lambda1 (+.f64 (.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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 phi2))))))))) (.f64 lambda1 (+.f64 (.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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))))))))))))
#s(approx (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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 phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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 phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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 phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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 (sqrt (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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 phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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 phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (+.f64 (.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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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 phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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 (+.f64 (.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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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 (+.f64 (.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/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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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 (+.f64 (.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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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 (atan2 (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))))) (sqrt (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))))) (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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 (sin (* lambda1 1/2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))
#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 (cos (* lambda1 1/2)) (cos.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 (- (* (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 (* (* (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 (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
#s(approx (sqrt (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (sqrt (- 1 (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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) (+.f64 (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
#s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* 1/2 (cos (- lambda1 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos phi1) (- 1/2 (* 1/2 (cos (- 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))) (.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))) (- 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 (sqrt (+ (* (- 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 (- 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 (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 (- lambda1 lambda2)) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #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 (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) 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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #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 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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) (sin (- (* (PI) 1/2) phi1)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))
#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 (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))
#s(approx (/ 2 (- lambda1 lambda2)) (/.f64 #s(literal 2 binary64) lambda1))
#s(approx (/ 2 (- lambda1 lambda2)) (/.f64 (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (/.f64 lambda2 lambda1))) lambda1))
#s(approx (/ 2 (- lambda1 lambda2)) (/.f64 (-.f64 (+.f64 #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 lambda1 #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 lambda2 lambda1))) lambda1))
#s(approx (/ 2 (- lambda1 lambda2)) (/.f64 (-.f64 (+.f64 #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (/.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))))) (+.f64 (.f64 #s(literal -2 binary64) (/.f64 lambda2 lambda1)) (*.f64 #s(literal -2 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 lambda1 #s(literal 2 binary64)))))) lambda1))
#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 (* (cos phi1) (pow (sin (/ 1 (/ 2 (- lambda1 lambda2)))) 2)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
#s(approx (+ (* (cos phi1) (pow (sin (/ 1 (/ 2 (- lambda1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+ (* (cos phi1) (pow (sin (/ 1 (/ 2 (- lambda1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.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 phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 phi2))))))))
#s(approx (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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 phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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 (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (* 1/2 (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.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)))))) (* (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/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 (- 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 (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 (atan2 (sqrt (+ (* (- 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 (- (+ 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 (-.f64 (+.f64 #s(literal 1/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))))) (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 (+ (* (- 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 (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))))) (* 2 R)) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/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))))) (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 (- 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 (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (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 (- 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 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (*.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) (sin (- (* (PI) 1/2) 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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))))))))
#s(approx (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))))))
#s(approx (atan2 (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1))))))) (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))))))
#s(approx (* (atan2 (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1))))))) (* 2 R)) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))))))))
#s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.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 (+.f64 (.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 (- lambda1 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal -2 binary64) (/.f64 lambda2 lambda1)) #s(literal 2 binary64)) lambda1)))
#s(approx (/ 2 (- lambda1 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)) (.f64 #s(literal -2 binary64) lambda2)) lambda1)) #s(literal 2 binary64)) lambda1)))
#s(approx (/ 2 (- lambda1 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (pow.f64 lambda2 #s(literal 3 binary64)) lambda1)) (.f64 #s(literal 2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))) lambda1)) (.f64 #s(literal -2 binary64) lambda2)) lambda1)) #s(literal 2 binary64)) lambda1)))
#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 (* (cos phi1) (pow (sin (/ 1 (/ 2 (- lambda1 lambda2)))) 2)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))))
#s(approx (+ (* (cos phi1) (pow (sin (/ 1 (/ 2 (- lambda1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (+.f64 (.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 (- 1 (+ (* (cos phi1) (pow (sin (/ 1 (/ 2 (- lambda1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2))) (-.f64 #s(literal 1 binary64) (+.f64 (.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 (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.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) (+.f64 (.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 (+.f64 (.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) (+.f64 (.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 (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 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 (+.f64 (.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) (+.f64 (.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 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.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 phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 phi2))))))))
#s(approx (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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 (sqrt (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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 (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))))) (sqrt (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))))) (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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 (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))))) (sqrt (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))))) (* 2 R)) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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 lambda2 lambda2)
#s(approx (* lambda2 1/2) (*.f64 #s(literal 1/2 binary64) lambda2))
#s(approx (cos (* lambda2 1/2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))
#s(approx (cos (* lambda2 1/2)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/384 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/8 binary64)))))
#s(approx (cos (* lambda2 1/2)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/384 binary64) (*.f64 #s(literal -1/46080 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/8 binary64)))))
#s(approx (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (+.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)) (+.f64 (.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)) (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.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 (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 (* (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 (+.f64 (.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 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.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 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/48 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.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 (* 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 (+.f64 (.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 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))))) (+.f64 (.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))))) (+.f64 (.f64 lambda2 (+.f64 (.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))))) (+.f64 (.f64 lambda2 (+.f64 (.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 (+.f64 (.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 (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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))))) (+.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))))))) (.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))))) (+.f64 (.f64 lambda2 (+.f64 (.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) (+.f64 (.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))))) (+.f64 (.f64 lambda2 (+.f64 (.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 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.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 (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))
#s(approx (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 lambda2 (+.f64 (.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) (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 lambda2 (+.f64 (.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 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (.f64 lambda2 (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (.f64 lambda2 (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))))))) (pow.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))))))))
#s(approx (- 1 (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.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))))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (- 1 (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.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) (+.f64 (.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))))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))
#s(approx (sqrt (- 1 (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) (.f64 lambda2 (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (+.f64 (.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 #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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))))))))
#s(approx (- lambda1 lambda2) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (sin.f64 lambda1))))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (* 1/2 (cos (- lambda1 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))
#s(approx (* 1/2 (cos (- lambda1 lambda2))) (+.f64 (.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 (- lambda1 lambda2))) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)) (.f64 lambda2 (+.f64 (.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 (- lambda1 lambda2))) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 lambda1)) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 lambda1)) (.f64 #s(literal -1/12 binary64) (*.f64 lambda2 (sin.f64 lambda1)))))))))
#s(approx (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))
#s(approx (- 1/2 (* 1/2 (cos (- 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 (- 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 (- 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 (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))
#s(approx (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))) (+.f64 (.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 (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))
#s(approx (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/12 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1)))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 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))) (+.f64 (.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))) (+.f64 (.f64 lambda2 (+.f64 (.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))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.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 (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))) (- 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) (+.f64 (.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) (+.f64 (.f64 lambda2 (+.f64 (.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) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(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)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/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 (+.f64 (.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 (+.f64 (.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 (+.f64 (.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 (- 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) (+.f64 (.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) (+.f64 (.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) (+.f64 (.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 (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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (+.f64 (.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 (+.f64 (.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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (+.f64 (.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 (+.f64 (.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 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/12 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (-.f64 phi1 phi2)))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (-.f64 phi1 phi2)))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (-.f64 phi1 phi2)))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/12 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (-.f64 phi1 phi2)))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) 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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (-.f64 phi1 phi2))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) 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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (-.f64 phi1 phi2))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (-.f64 phi1 phi2)))))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) 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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (-.f64 phi1 phi2))))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (-.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 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (-.f64 phi1 phi2)))))))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) 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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (-.f64 phi1 phi2))))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (-.f64 phi1 phi2))))))) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (-.f64 phi1 phi2))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (-.f64 phi1 phi2))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (-.f64 phi1 phi2))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (-.f64 phi1 phi2)))))))))))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.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 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))))
#s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.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 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.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) (sin (- (* (PI) 1/2) phi1)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.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) (sin (- (* (PI) 1/2) 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 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.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 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.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) (sin (- (* (PI) 1/2) 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 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.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 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.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 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.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) (sin (- (* (PI) 1/2) 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 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (+.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.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 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))) (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 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.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 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.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 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))))))))))))
#s(approx (sin (/ (- lambda1 lambda2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 (+.f64 (.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 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 lambda2 (+.f64 (.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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)))) (+.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))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)))) (+.f64 (.f64 lambda2 (+.f64 (.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) (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)))) (+.f64 (.f64 lambda2 (+.f64 (.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 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (/ 2 (- lambda1 lambda2)) (+.f64 (.f64 #s(literal 2 binary64) (/.f64 lambda2 (pow.f64 lambda1 #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) lambda1))))
#s(approx (/ 2 (- lambda1 lambda2)) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal 2 binary64) (/.f64 lambda2 (pow.f64 lambda1 #s(literal 3 binary64)))) (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) lambda1))))
#s(approx (/ 2 (- lambda1 lambda2)) (+.f64 (.f64 lambda2 (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal 2 binary64) (/.f64 lambda2 (pow.f64 lambda1 #s(literal 4 binary64)))) (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 3 binary64)))))) (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) lambda1))))
#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) (+.f64 (.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) (+.f64 (.f64 lambda2 (+.f64 (.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 (+.f64 (.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) (+.f64 (.f64 lambda2 (+.f64 (.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 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 lambda2 (+.f64 (.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 phi1) (pow (sin (/ 1 (/ 2 (- lambda1 lambda2)))) 2)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))
#s(approx (* (cos phi1) (pow (sin (/ 1 (/ 2 (- lambda1 lambda2)))) 2)) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))
#s(approx (* (cos phi1) (pow (sin (/ 1 (/ 2 (- lambda1 lambda2)))) 2)) (+.f64 (.f64 lambda2 (+.f64 (.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) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))
#s(approx (* (cos phi1) (pow (sin (/ 1 (/ 2 (- lambda1 lambda2)))) 2)) (+.f64 (.f64 lambda2 (+.f64 (.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 (.f64 lambda2 (.f64 (cos.f64 phi1) (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))))
#s(approx (+ (* (cos phi1) (pow (sin (/ 1 (/ 2 (- lambda1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (+.f64 (.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)) (+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (+.f64 (.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)) (+.f64 (.f64 lambda2 (+.f64 (.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) (+.f64 (.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 (.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)) (+.f64 (.f64 lambda2 (+.f64 (.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 (.f64 lambda2 (.f64 (cos.f64 phi1) (+.f64 (.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 (.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 (.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 (- 1 (+ (* (cos phi1) (pow (sin (/ 1 (/ 2 (- lambda1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2))) (-.f64 #s(literal 1 binary64) (+.f64 (.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 (- 1 (+ (* (cos phi1) (pow (sin (/ 1 (/ 2 (- lambda1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (+.f64 (.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 (- 1 (+ (* (cos phi1) (pow (sin (/ 1 (/ 2 (- lambda1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (+.f64 (.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 (- 1 (+ (* (cos phi1) (pow (sin (/ 1 (/ 2 (- lambda1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 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 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))) (+.f64 (.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 (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.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))))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.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) (+.f64 (.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))))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (+.f64 (.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 #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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 #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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.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 phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.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 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.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 phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda2 (+.f64 (.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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.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 phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.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 (cos.f64 phi1) (.f64 (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 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.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 phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.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 phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.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 phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 phi2))))))) (.f64 lambda2 (+.f64 (.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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.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 phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 phi2))))))) (.f64 lambda2 (+.f64 (.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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 phi2))))))))) (.f64 lambda2 (+.f64 (.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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))))))))))))
#s(approx (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.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 phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.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 phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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 phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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 (sqrt (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.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 (sqrt (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.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/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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.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 (sqrt (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.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 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (+.f64 (.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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.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(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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.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/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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.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 (sqrt (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.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 lambda2 (+.f64 (.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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.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 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (+.f64 (.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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.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(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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.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(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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.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) (/.f64 (+.f64 (.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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.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(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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.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 (cos (* lambda2 1/2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))
#s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#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 (/ 2 (- lambda1 lambda2)) (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 lambda1 lambda2)) #s(literal 2 binary64)) lambda2))
#s(approx (/ 2 (- lambda1 lambda2)) (/.f64 (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))) (+.f64 #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (/.f64 lambda1 lambda2)))) lambda2))
#s(approx (/ 2 (- lambda1 lambda2)) (/.f64 (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64)))) (+.f64 #s(literal 2 binary64) (+.f64 (.f64 #s(literal 2 binary64) (/.f64 lambda1 lambda2)) (*.f64 #s(literal 2 binary64) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))))))) lambda2))
#s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))
#s(approx (* 1/2 (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (- 1/2 (* 1/2 (cos (- 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 (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 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)))))) (* (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 (sqrt (+ (* (- 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 (- 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 (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 (atan2 (sqrt (+ (* (- 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 (- (+ 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 (-.f64 (+.f64 #s(literal 1/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))))) (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 (+ (* (- 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 (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))))) (* 2 R)) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/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))))) (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 (- 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 (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.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 (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) 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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.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 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))))
#s(approx (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))))))
#s(approx (atan2 (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1))))))) (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.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))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))))))
#s(approx (* (atan2 (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1))))))) (* 2 R)) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.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))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))))))))
#s(approx (sin (/ (- lambda1 lambda2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#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 (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.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 (+.f64 (.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 (- lambda1 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (/.f64 lambda1 lambda2))) lambda2)))
#s(approx (/ 2 (- lambda1 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 2 binary64) (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2)) (.f64 #s(literal 2 binary64) lambda1)) lambda2))) lambda2)))
#s(approx (/ 2 (- lambda1 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 2 binary64) (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (pow.f64 lambda1 #s(literal 3 binary64)) lambda2)) (.f64 #s(literal -2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) lambda2)) (.f64 #s(literal 2 binary64) lambda1)) lambda2))) lambda2)))
#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 (* (cos phi1) (pow (sin (/ 1 (/ 2 (- lambda1 lambda2)))) 2)) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))))
#s(approx (+ (* (cos phi1) (pow (sin (/ 1 (/ 2 (- lambda1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (+.f64 (.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 (- 1 (+ (* (cos phi1) (pow (sin (/ 1 (/ 2 (- lambda1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2))) (-.f64 #s(literal 1 binary64) (+.f64 (.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 (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.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) (+.f64 (.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 (+.f64 (.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) (+.f64 (.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 (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))))))
#s(approx (* R (* 2 (atan2 (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt (- 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 (+.f64 (.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) (+.f64 (.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 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.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 phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 (neg.f64 phi2))))))))
#s(approx (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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 (sqrt (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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 (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))))) (sqrt (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))))) (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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 (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))))) (sqrt (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))))) (* 2 R)) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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 phi1 phi1)
#s(approx (* 1/2 phi1) (*.f64 #s(literal 1/2 binary64) phi1))
#s(approx (sin (* 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
#s(approx (sin (* 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/3840 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/48 binary64))))))
#s(approx (sin (* 1/2 phi1)) (.f64 phi1 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/3840 binary64) (.f64 #s(literal -1/645120 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/48 binary64))))))
#s(approx (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
#s(approx (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (.f64 phi1 (+.f64 (.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 (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (.f64 phi1 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.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 (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (.f64 phi1 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/48 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.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 (cos (* 1/2 phi1)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (cos (* 1/2 phi1)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/384 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/8 binary64)))))
#s(approx (cos (* 1/2 phi1)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/384 binary64) (*.f64 #s(literal -1/46080 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/8 binary64)))))
#s(approx (* (cos (* 1/2 phi1)) (sin (* phi2 1/2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
#s(approx (* (cos (* 1/2 phi1)) (sin (* phi2 1/2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
#s(approx (* (cos (* 1/2 phi1)) (sin (* phi2 1/2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/384 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))))
#s(approx (* (cos (* 1/2 phi1)) (sin (* phi2 1/2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/46080 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 #s(literal 1/384 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))))
#s(approx (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) (.f64 #s(literal -1 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))
#s(approx (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))
#s(approx (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) (-.f64 (.f64 phi1 (+.f64 (.f64 #s(literal 1/8 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
#s(approx (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) (-.f64 (.f64 phi1 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/48 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))
#s(approx (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))
#s(approx (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (+.f64 (.f64 phi1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (+.f64 (.f64 phi1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 phi1 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2)))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2)))))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal 1/24 binary64) (cos.f64 phi2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (- (* (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))))) (+.f64 (.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))))) (+.f64 (.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)) (+.f64 (.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))))) (+.f64 (.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)) (+.f64 (.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)) (+.f64 (.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)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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))))) (+.f64 (.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))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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)) (+.f64 (.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))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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)) (+.f64 (.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)) (+.f64 (.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 (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2)))))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 phi1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 phi1 (+.f64 (.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 (.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 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 phi1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 phi1 (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 phi1 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (sqrt (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (sqrt (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 #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 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (sqrt (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 phi1 (+.f64 (.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 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (+.f64 (.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 (.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 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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(literal 2 binary64)))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (sqrt (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 phi1 (+.f64 (.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 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 phi1 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (-.f64 (+.f64 (.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 (.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 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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(literal 2 binary64)))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (.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 (.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 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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(literal 2 binary64))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (- 1 (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (- 1 (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (- 1 (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (- 1 (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (sqrt (- 1 (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (sqrt (- 1 (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 #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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (sqrt (- 1 (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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(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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 #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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (sqrt (- 1 (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 phi1 (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (+.f64 (.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 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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(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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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(literal 2 binary64)))) (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 #s(literal -1/2 binary64) (/.f64 (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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(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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (-.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 #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 lambda1 lambda2)))))
#s(approx (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (-.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)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/24 binary64) (-.f64 #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 lambda1 lambda2)))))
#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))) (+.f64 (.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))) (+.f64 (.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)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (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))) (+.f64 (.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)) (+.f64 (.f64 #s(literal -1/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)) (+.f64 (.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 (- phi1 phi2) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (- phi1 phi2) (-.f64 phi1 phi2))
#s(approx (* 1/2 (- phi1 phi2)) (*.f64 #s(literal -1/2 binary64) phi2))
#s(approx (* 1/2 (- phi1 phi2)) (+.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1)))
#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 (+.f64 (.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 (* 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))))) (+.f64 (.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))))) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))) (.f64 phi1 (+.f64 (.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))))) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))) (.f64 phi1 (+.f64 (.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/12 binary64) (*.f64 phi1 (sin.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 (* 1/2 (cos (* 2 (* 1/2 (- 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) (+.f64 (.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) (+.f64 (.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) (+.f64 (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (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 (sqrt (+ (* (- 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 (+.f64 (.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)))))) (+.f64 (.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 (+.f64 (.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 (+.f64 (.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/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (+.f64 (.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)))))) (+.f64 (.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 (- 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) (+.f64 (.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) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))) (.f64 phi1 (+.f64 (.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) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))) (.f64 phi1 (+.f64 (.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/12 binary64) (*.f64 phi1 (sin.f64 (neg.f64 phi2)))))))))))
#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) (+.f64 (.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) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))) (.f64 phi1 (+.f64 (.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) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2))) (.f64 phi1 (-.f64 (+.f64 (.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 (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 (+.f64 (.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))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (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 (+.f64 (.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 (+.f64 (.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))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (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))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (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 (- (* (PI) 1/2) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (- (* (PI) 1/2) phi1) (+.f64 (.f64 #s(literal -1 binary64) phi1) (.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 #s(literal -1 binary64) (.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 (.f64 #s(literal -1 binary64) (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 (.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (+.f64 (.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 (* (cos phi2) (sin (- (* (PI) 1/2) phi1))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos phi2) (sin (- (* (PI) 1/2) phi1))) (+.f64 (.f64 #s(literal -1 binary64) (.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 (* (cos phi2) (sin (- (* (PI) 1/2) phi1))) (+.f64 (.f64 phi1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos phi2) (sin (- (* (PI) 1/2) phi1))) (+.f64 (.f64 phi1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/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) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.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) (sin (- (* (PI) 1/2) phi1)))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.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) (sin (- (* (PI) 1/2) phi1)))) (+.f64 (.f64 phi1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.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) (sin (- (* (PI) 1/2) phi1)))) (+.f64 (.f64 phi1 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.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))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.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) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 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) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.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))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 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) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 phi1 (-.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #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 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 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) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 phi1 (-.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 phi1 (-.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 phi1 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal 1/12 binary64) (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 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 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) (sin (- (* (PI) 1/2) 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 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 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) (sin (- (* (PI) 1/2) 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 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/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 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.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))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 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) (sin (- (* (PI) 1/2) 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 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/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 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (+.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.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)))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(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 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/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 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.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)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 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) (sin (- (* (PI) 1/2) 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 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/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 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.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)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/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 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (+.f64 (.f64 #s(literal 1/12 binary64) (sin.f64 (neg.f64 phi2))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.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)))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (+.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.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)))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(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 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(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 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/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 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (+.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.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)))) #s(literal 2 binary64)) (pow.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(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 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 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)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.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) (sin (- (* (PI) 1/2) phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.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) (sin (- (* (PI) 1/2) phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))) (.f64 phi1 (-.f64 (+.f64 (.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 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.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) (sin (- (* (PI) 1/2) phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))) (.f64 phi1 (-.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2))) (.f64 phi1 (-.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2))) (.f64 phi1 (-.f64 (.f64 #s(literal 1/12 binary64) (sin.f64 (neg.f64 phi2))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.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) (sin (- (* (PI) 1/2) 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 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.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) (sin (- (* (PI) 1/2) 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 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.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/2 binary64) (sin.f64 (neg.f64 phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))) (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 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.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) (sin (- (* (PI) 1/2) 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 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 phi1 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.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 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.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 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.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/2 binary64) (sin.f64 (neg.f64 phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (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 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.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) (sin (- (* (PI) 1/2) 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 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 phi1 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (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 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))) (.f64 phi1 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (.f64 #s(literal 1/12 binary64) (sin.f64 (neg.f64 phi2))) (+.f64 (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.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 (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))) (-.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 (neg.f64 phi2))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.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 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.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 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.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 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.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))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.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 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.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 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))))))))
#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 (+.f64 (.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 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 phi1 (+.f64 (.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 (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) (+.f64 (.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) (+.f64 (.f64 phi1 (+.f64 (.f64 phi1 (+.f64 (.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) (+.f64 (.f64 phi1 (+.f64 (.f64 phi1 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 phi1 (+.f64 (.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 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))) (+.f64 (.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))) (+.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.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))) (+.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.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)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- 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))) (+.f64 (.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))) (+.f64 (.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)) (+.f64 (.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))) (+.f64 (.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)) (+.f64 (.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)) (+.f64 (.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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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)))) (+.f64 (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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)))) (+.f64 (.f64 phi1 (+.f64 (.f64 phi1 (+.f64 (.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 (.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))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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)))) (+.f64 (.f64 phi1 (+.f64 (.f64 phi1 (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 phi1 (+.f64 (.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))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (+.f64 (.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 (.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 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (+.f64 (.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 (+.f64 (.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 (.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 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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 (.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 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
#s(approx (* (cos phi1) (pow (sin (/ 1 (/ 2 (- lambda1 lambda2)))) 2)) (+.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
#s(approx (* (cos phi1) (pow (sin (/ 1 (/ 2 (- lambda1 lambda2)))) 2)) (+.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.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/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))) (.f64 #s(literal 1/24 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
#s(approx (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 (+ (* (cos phi1) (pow (sin (/ 1 (/ 2 (- lambda1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2)) (+.f64 (.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)) (+.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (+.f64 (.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)) (+.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (+.f64 (.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 (.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 (- 1 (+ (* (cos phi1) (pow (sin (/ 1 (/ 2 (- lambda1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))))
#s(approx (- 1 (+ (* (cos phi1) (pow (sin (/ 1 (/ 2 (- lambda1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (.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 (- 1 (+ (* (cos phi1) (pow (sin (/ 1 (/ 2 (- lambda1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2))) (-.f64 (+.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/48 binary64) (.f64 #s(literal 1/24 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- 1 (+ (* (cos phi1) (pow (sin (/ 1 (/ 2 (- lambda1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (+.f64 #s(literal 1/48 binary64) (.f64 #s(literal -1 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))))))) (.f64 #s(literal 1/24 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #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 (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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)))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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 (.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)))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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 (.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 (.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)))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (+.f64 (.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 (.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 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))))))
#s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
#s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))
#s(approx (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2))))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))
#s(approx (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2))))) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2))) (.f64 #s(literal -1/4 binary64) (*.f64 phi1 (cos.f64 phi2)))))))
#s(approx (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2))))) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 phi2)) (.f64 #s(literal 1/12 binary64) (*.f64 phi1 (sin.f64 (neg.f64 phi2))))))))))
#s(approx (- 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))
#s(approx (- 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg 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 phi2))))
#s(approx (- 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi1 (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))
#s(approx (- 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg 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 phi2)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg 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 phi2))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.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 phi2))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.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 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 phi2))))
#s(approx (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (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 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 phi2))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg 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 phi2)))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg 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 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 phi2))))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg 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 phi2)))) (.f64 phi1 (+.f64 (.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 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)))))) (+.f64 (.f64 #s(literal -1/4 binary64) (cos.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 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 phi2))))))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg 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 phi2)))) (.f64 phi1 (+.f64 (.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 phi2)))))) (.f64 phi1 (+.f64 (.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/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (+.f64 (.f64 #s(literal -1/4 binary64) (cos.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 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 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 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)))))) (+.f64 (.f64 #s(literal -1/4 binary64) (cos.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 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 phi2))))))))))))
#s(approx (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))
#s(approx (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))))
#s(approx (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2))) (.f64 #s(literal -1/4 binary64) (*.f64 phi1 (cos.f64 phi2))))))))
#s(approx (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 phi2)) (.f64 #s(literal 1/12 binary64) (*.f64 phi1 (sin.f64 (neg.f64 phi2)))))))))))
#s(approx (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg 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 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 phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2)))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/4 binary64) (cos.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 phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2))) (.f64 phi1 (-.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (cos.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 (sqrt (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg 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 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 phi2) (cos phi1)) (* (sin phi1) (sin (neg 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 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 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 phi2) (cos phi1)) (* (sin phi1) (sin (neg 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 phi2))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 phi1 (+.f64 (.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 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 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/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 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 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 phi2) (cos phi1)) (* (sin phi1) (sin (neg 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 phi2))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 phi1 (+.f64 (.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 phi2))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))) (.f64 phi1 (+.f64 (.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 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/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 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 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 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 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/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 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 phi2))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))))))
#s(approx (sin (* 1/2 phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
#s(approx (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (.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 phi1)) (sin (* phi2 1/2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
#s(approx (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))
#s(approx (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))
#s(approx (cos phi1) (cos.f64 phi1))
#s(approx (* (cos phi1) (cos phi2)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
#s(approx (- 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 (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 (- 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 (* 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 (- (* (PI) 1/2) phi1) (*.f64 #s(literal -1 binary64) phi1))
#s(approx (- (* (PI) 1/2) phi1) (.f64 phi1 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)) #s(literal 1 binary64))))
#s(approx (sin (- (* (PI) 1/2) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
#s(approx (* (cos phi2) (sin (- (* (PI) 1/2) phi1))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
#s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))))
#s(approx (pow (sin (/ (- phi1 phi2) 2)) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))
#s(approx (pow (sin (* 1/2 phi1)) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))
#s(approx (sin phi1) (sin.f64 phi1))
#s(approx (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 (neg.f64 phi2))))))
#s(approx (- 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))))
#s(approx (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))))
#s(approx (- 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 (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 (- 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 (* 1/2 (cos (* 2 (* 1/2 (- 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 (sqrt (+ (* (- 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 (- 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 (* 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 (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 (atan2 (sqrt (+ (* (- 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 (- (+ 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 (-.f64 (+.f64 #s(literal 1/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))))))) (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 (+ (* (- 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 (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))))) (* 2 R)) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/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))))))) (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 (- (* (PI) 1/2) phi1) (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi1))))))
#s(approx (sin (- (* (PI) 1/2) phi1)) (sin.f64 (+.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos phi2) (sin (- (* (PI) 1/2) phi1))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 (.f64 #s(literal -1 binary64) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (+.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.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) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (+.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 #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 (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) 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 (sin.f64 (+.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 #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)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) 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 phi2) (.f64 (sin.f64 (+.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.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) (sin (- (* (PI) 1/2) 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 phi2) (.f64 (sin.f64 (+.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (atan2 (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1))))))) (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (+.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 #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))))))) (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 phi2) (.f64 (sin.f64 (+.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (* (atan2 (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1))))))) (* 2 R)) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (+.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 #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))))))) (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 phi2) (.f64 (sin.f64 (+.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))))
#s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal -1/2 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))
#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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 (+ (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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 phi2 phi2)
#s(approx (* phi2 1/2) (*.f64 #s(literal 1/2 binary64) phi2))
#s(approx (cos (* phi2 1/2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (cos (* phi2 1/2)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/384 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/8 binary64)))))
#s(approx (cos (* phi2 1/2)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/384 binary64) (*.f64 #s(literal -1/46080 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/8 binary64)))))
#s(approx (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (+.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 (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.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 (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.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 (sin (* phi2 1/2)) (.f64 phi2 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (sin (* phi2 1/2)) (.f64 phi2 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/3840 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/48 binary64))))))
#s(approx (sin (* phi2 1/2)) (.f64 phi2 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/3840 binary64) (.f64 #s(literal -1/645120 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/48 binary64))))))
#s(approx (* (cos (* 1/2 phi1)) (sin (* phi2 1/2))) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
#s(approx (* (cos (* 1/2 phi1)) (sin (* phi2 1/2))) (.f64 phi2 (+.f64 (.f64 #s(literal -1/48 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
#s(approx (* (cos (* 1/2 phi1)) (sin (* phi2 1/2))) (.f64 phi2 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/48 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/3840 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))))
#s(approx (* (cos (* 1/2 phi1)) (sin (* phi2 1/2))) (.f64 phi2 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/48 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/645120 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 #s(literal 1/3840 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))))))
#s(approx (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* 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 (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 phi2 (-.f64 (.f64 #s(literal -1/8 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))
#s(approx (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 phi2 (-.f64 (.f64 phi2 (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/48 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))
#s(approx (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 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))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (+.f64 (.f64 phi2 (+.f64 (.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 (+.f64 (.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 (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (+.f64 (.f64 phi2 (+.f64 (.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 (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (.f64 phi2 (+.f64 (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 #s(literal 1/8 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1)))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1)))))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal 1/24 binary64) (cos.f64 phi1))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (- (* (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))))) (+.f64 (.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))))) (+.f64 (.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)) (+.f64 (.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))))) (+.f64 (.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)) (+.f64 (.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)) (+.f64 (.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)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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))))) (+.f64 (.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))))) (+.f64 (.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)) (+.f64 (.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))))) (+.f64 (.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)) (+.f64 (.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)) (+.f64 (.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 (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (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 (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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))))) (+.f64 (.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 (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 phi2 (+.f64 (.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 (+.f64 (.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 (.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 (.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 (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 phi2 (+.f64 (.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 (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (.f64 phi2 (+.f64 (.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 (.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 (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (.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 (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.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 (.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 (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.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 (+.f64 (.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 (.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 (+.f64 (.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 (.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 (+.f64 (.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 (+.f64 (.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 (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.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 (+.f64 (.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 (.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 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (+.f64 (.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 (+.f64 (.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 (.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 (+.f64 (.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 (+.f64 (.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 (+.f64 (.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 (+.f64 (.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 (.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 (+.f64 (.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 (+.f64 (.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 (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.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 (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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))))) (+.f64 (.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 (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (+.f64 (.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 (.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))))))) (+.f64 (.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 (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (+.f64 (.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 (.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 (.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))))))) (+.f64 (.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 (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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) (+.f64 (.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 (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.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) (+.f64 (.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 (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.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) (+.f64 (.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) (+.f64 (.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 (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.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 (+.f64 (.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) (+.f64 (.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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (+.f64 (.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 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.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) (+.f64 (.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 (.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) (+.f64 (.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 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.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) (+.f64 (.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/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (+.f64 (.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))) (+.f64 (.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)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (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))) (+.f64 (.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)) (+.f64 (.f64 #s(literal -1/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)) (+.f64 (.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 (- phi1 phi2) (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))
#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 (+.f64 (.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 (* 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))))) (+.f64 (.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))))) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 phi2 (+.f64 (.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))))) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 phi2 (+.f64 (.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/12 binary64) (*.f64 phi2 (sin.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 (* 1/2 (cos (* 2 (* 1/2 (- 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) (+.f64 (.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) (+.f64 (.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) (+.f64 (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (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 (sqrt (+ (* (- 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 (+.f64 (.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)))))) (+.f64 (.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 (+.f64 (.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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (+.f64 (.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)))))) (+.f64 (.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)))))) (+.f64 (.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 (- 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) (+.f64 (.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) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 phi2 (+.f64 (.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) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 phi2 (+.f64 (.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/12 binary64) (*.f64 phi2 (sin.f64 phi1))))))))))
#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) (+.f64 (.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) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 phi2 (+.f64 (.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) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 phi2 (+.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 phi1)) (.f64 phi2 (-.f64 (+.f64 (.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 (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 (+.f64 (.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)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (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 (+.f64 (.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 (+.f64 (.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)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (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)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (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 (* (cos phi2) (sin (- (* (PI) 1/2) phi1))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (* (cos phi2) (sin (- (* (PI) 1/2) phi1))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))
#s(approx (* (cos phi2) (sin (- (* (PI) 1/2) phi1))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal 1/24 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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) (sin (- (* (PI) 1/2) phi1)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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) (sin (- (* (PI) 1/2) phi1)))) (+.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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) (sin (- (* (PI) 1/2) phi1)))) (+.f64 (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 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) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 phi1))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 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) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 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) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 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) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 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) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 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) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(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 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 phi1) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (+.f64 (.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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 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) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(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 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (sin.f64 phi1) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (+.f64 (.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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (+.f64 (.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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 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)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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) (sin (- (* (PI) 1/2) phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (sin.f64 phi1))))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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) (sin (- (* (PI) 1/2) phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 phi2 (+.f64 (.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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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) (sin (- (* (PI) 1/2) phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 phi2 (+.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 phi1)) (.f64 phi2 (-.f64 (+.f64 (.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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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) (sin (- (* (PI) 1/2) phi1)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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) (sin (- (* (PI) 1/2) phi1)))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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) (sin (- (* (PI) 1/2) phi1)))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 phi2 (+.f64 (.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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) 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)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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) (sin (- (* (PI) 1/2) phi1)))))) (+.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 phi2 (+.f64 (.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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))) (.f64 phi2 (+.f64 (.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)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) 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)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))))))))
#s(approx (sin (/ (- phi1 phi2) 2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 phi2 (+.f64 (.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 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 phi2 (+.f64 (.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 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))) (+.f64 (.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))) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.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))) (+.f64 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.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)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))))))))
#s(approx (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))) (+.f64 (.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))) (+.f64 (.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)) (+.f64 (.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))) (+.f64 (.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)) (+.f64 (.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)) (+.f64 (.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 (+ (pow (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))))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)))) (+.f64 (.f64 phi2 (+.f64 (.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 (+.f64 (.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 (.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 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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)))) (+.f64 (.f64 phi2 (+.f64 (.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 (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (.f64 phi2 (+.f64 (.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 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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 (.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 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 phi2 (-.f64 (+.f64 (.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 (+.f64 (.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 (.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 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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 (.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 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) #s(literal 2 binary64))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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))))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.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 (.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))))))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (+.f64 (.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 (.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 (.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))))))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (+.f64 (.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 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 (.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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 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 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))))))
#s(approx (sin (neg phi2)) (.f64 phi2 (-.f64 (.f64 #s(literal 1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1 binary64))))
#s(approx (sin (neg phi2)) (.f64 phi2 (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/6 binary64) (*.f64 #s(literal -1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1 binary64))))
#s(approx (sin (neg phi2)) (.f64 phi2 (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/5040 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/120 binary64))))) #s(literal 1 binary64))))
#s(approx (cos (* phi2 1/2)) (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 (sin (neg phi2)) (sin.f64 (neg.f64 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 (* 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 (cos (* 2 (* 1/2 (- phi1 phi2)))) (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 (- 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 (* 1/2 (cos (* 2 (* 1/2 (- 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 (sqrt (+ (* (- 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 (- 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 (* 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 (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 (atan2 (sqrt (+ (* (- 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 (- (+ 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 (-.f64 (+.f64 #s(literal 1/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)))))) (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 (+ (* (- 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 (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))))) (* 2 R)) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/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)))))) (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 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #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 (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) 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 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #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)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) 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 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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) (sin (- (* (PI) 1/2) 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 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (atan2 (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1))))))) (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #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)))))) (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 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (* (atan2 (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1))))))) (* 2 R)) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #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)))))) (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 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))))
#s(approx (sin (/ (- phi1 phi2) 2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))
#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 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 (+ (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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.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 (sin (neg phi2)) (sin.f64 (*.f64 #s(literal -1 binary64) phi2)))
#s(approx (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal -1 binary64) phi2))))))
#s(approx (- 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (.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 phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (*.f64 #s(literal -1 binary64) phi2)))))))
#s(approx (sqrt (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (*.f64 #s(literal -1 binary64) phi2))))))))
#s(approx (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal -1 binary64) phi2)))))))
#s(approx (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (.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 phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (.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 (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))))) (sqrt (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))))) (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal -1 binary64) phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (.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 (+ (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))))) (sqrt (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))))) (* 2 R)) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal -1 binary64) phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (.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))))))))))))

Calls

15 calls:

Time	Variable	Point
36.0ms	phi1	0
25.0ms	phi2	inf
24.0ms	lambda2	inf
23.0ms	lambda1	-inf
22.0ms	lambda2	-inf

rewrite534.0ms (1.0%)

Memory

18.6MiB live, 1 830.8MiB allocated; 136ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	133	2690
0	240	2091
1	1007	1819
0	4225	1819

Stop Event

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

Counts

112 → 1 349

Calls

Call 1

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

Outputs
R
#s(literal 2 binary64)
#s(literal 1/2 binary64)
phi1
(*.f64 phi1 #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) phi1)
(/.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 (*.f64 phi1 #s(literal 1/2 binary64)))
phi2
(*.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 (neg.f64 (.f64 phi2 #s(literal 1/2 binary64))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (.f64 (fabs.f64 phi2) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (.f64 phi2 #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(cos.f64 (neg.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64)))))
(cos.f64 (neg.f64 (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64))))
(cos.f64 (fabs.f64 (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64))))
(cos.f64 (neg.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(cos.f64 (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64)))
(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 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))
(.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(/.f64 (neg.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (*.f64 phi2 #s(literal 1/2 binary64)))))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 phi2 #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (+.f64 (+.f64 (.f64 phi2 #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (+.f64 (.f64 phi2 #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (+.f64 (.f64 phi2 #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 phi2 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 (fabs.f64 phi2) #s(literal 1/2 binary64)))) (sin.f64 (+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 (fabs.f64 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (*.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 (+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (*.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 (+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (*.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(sin.f64 (+.f64 (neg.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (.f64 (fabs.f64 phi1) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(cos.f64 (neg.f64 (neg.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(cos.f64 (neg.f64 (*.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 phi1 #s(literal 1/2 binary64))))
(cos.f64 (*.f64 (fabs.f64 phi1) #s(literal 1/2 binary64)))
(cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(sin.f64 (*.f64 phi2 #s(literal 1/2 binary64)))
(.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #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 (cos.f64 (-.f64 (.f64 phi2 #s(literal 1/2 binary64)) (+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (.f64 phi2 #s(literal 1/2 binary64)) (+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (+.f64 (+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 phi2 #s(literal 1/2 binary64)) (neg.f64 (.f64 phi1 #s(literal 1/2 binary64))))) (sin.f64 (+.f64 (.f64 phi2 #s(literal 1/2 binary64)) (neg.f64 (.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 phi2 #s(literal 1/2 binary64)) (.f64 (fabs.f64 phi1) #s(literal 1/2 binary64)))) (sin.f64 (+.f64 (.f64 phi2 #s(literal 1/2 binary64)) (.f64 (fabs.f64 phi1) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (+.f64 (.f64 phi2 #s(literal 1/2 binary64)) (*.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (neg.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) (neg.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (.f64 (neg.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) (neg.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (sin.f64 (+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 phi2 #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))))
(neg.f64 (neg.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 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))))
(-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (neg.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))))
(-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
(+.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
(+.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))))
(+.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 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 (+.f64 #s(literal 1 binary64) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))))) (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #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 (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 (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 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 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))))) (.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (-.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #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 #s(literal 1 binary64) (-.f64 phi1 phi2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))))) (-.f64 (.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))))) (-.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/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))) (+.f64 (.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))) (+.f64 (.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 (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))))) (-.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))))))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 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 (.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))) (+.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 (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))))))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 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 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (neg.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))))
(-.f64 #s(literal 1/2 binary64) (neg.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))))))
(-.f64 #s(literal 1/2 binary64) (neg.f64 (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 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))))) (pow.f64 (.f64 (neg.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 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))))) (pow.f64 (neg.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(+.f64 #s(literal 1/2 binary64) (.f64 (neg.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))))
(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))))
(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 (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 phi2 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(cos.f64 (neg.f64 (fabs.f64 phi2)))
(cos.f64 (neg.f64 (neg.f64 phi2)))
(cos.f64 (fabs.f64 (fabs.f64 phi2)))
(cos.f64 (fabs.f64 phi2))
(cos.f64 (neg.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 (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 (fabs.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) phi1)) (cos.f64 (-.f64 (fabs.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (-.f64 (neg.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 phi2 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) (fabs.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) phi2)) (cos.f64 (-.f64 (neg.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) phi2)) (cos.f64 (-.f64 (fabs.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 (fabs.f64 phi2))) (cos.f64 (-.f64 phi1 (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 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))) (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))) (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))) 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)))
lambda1
(*.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))
(sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))
lambda2
(*.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))
(sin.f64 (+.f64 (neg.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.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 (+.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64))))) #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 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(/.f64 (neg.f64 (+.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (*.f64 lambda2 #s(literal 1/2 binary64)))))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.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 (+.f64 (.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)) (+.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (+.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64)))) (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 (+.f64 (.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 (.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 (+.f64 (.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 (+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (*.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(sin.f64 (+.f64 (neg.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.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 (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)) (+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.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 (+.f64 (.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 (+.f64 (.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 (+.f64 (.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 (+.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (*.f64 lambda1 #s(literal 1/2 binary64))))) #s(literal 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 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (.f64 (neg.f64 (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 (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))))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (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 (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 (pow.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (-.f64 (.f64 (.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 (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))))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (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 (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (-.f64 (.f64 (neg.f64 (.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 (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 (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (sin.f64 (+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (+.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))))))
(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)))
(-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (neg.f64 (.f64 (neg.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))
(-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (neg.f64 (neg.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))))
(-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(+.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(+.f64 (.f64 (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)))))
(+.f64 (.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 (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 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #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 (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 (.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 (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/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)))
(134-z0z1z2z3z4 (.f64 (.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))) (sin.f64 (+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.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))) (sin.f64 (+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.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))))
(134-z0z1z2z3z4 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.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 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))
(.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 (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 #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 (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 #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 (cos.f64 (.f64 #s(literal 1 binary64) (-.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 #s(literal 1 binary64) (-.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 #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 (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 (-.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 (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 (.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 (-.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (.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)))) #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))) (+.f64 (.f64 (.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 (.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 (.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 (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 (-.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))) (+.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 (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 (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))))) #s(literal 3 binary64))) (+.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)) (-.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 (.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 (-.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 (cos.f64 (*.f64 #s(literal 1 binary64) (-.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 (.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 (.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 (-.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.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 (.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)))) #s(literal 3 binary64))) (+.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 (.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 (.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 (-.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 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))))
(neg.f64 (neg.f64 (-.f64 (.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 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #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 #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 (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 (.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 (-.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 (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 (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 (neg.f64 (.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 (-.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))
(.f64 (pow.f64 (-.f64 (.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 (.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 (-.f64 (.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 (.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 (-.f64 (.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 (.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 (-.f64 (.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 (.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 (.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 (.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 (.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 (.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 (-.f64 (.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 (.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 (-.f64 (.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 (.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 (-.f64 (.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 (.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)))
#s(literal 1 binary64)
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (-.f64 (.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 (.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 (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 (.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 (*.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 (.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 (.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 (neg.f64 (-.f64 (.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 (.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 (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 (.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 (-.f64 (.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 (.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 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 (.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 (.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 (-.f64 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 (-.f64 (.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 (.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))) (+.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (-.f64 (.f64 (neg.f64 (-.f64 (.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 (.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 (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 (.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 (-.f64 (.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 (.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 (.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 (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)))) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 (.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 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64))) (+.f64 (.f64 (.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 (.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 (-.f64 (.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 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (-.f64 (.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 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #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 binary64) (-.f64 (.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 (.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 (.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 (.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))) (+.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (+.f64 (.f64 (-.f64 (.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 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #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 binary64) (-.f64 (.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 (.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 (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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64))))
(neg.f64 (neg.f64 (-.f64 (-.f64 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))))
(-.f64 (-.f64 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))
(-.f64 #s(literal 1 binary64) (-.f64 (.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 (.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 (.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 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi2))) (cos.f64 phi1)))
(+.f64 (-.f64 (.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 (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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (.f64 (neg.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 (.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 (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 (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 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (neg.f64 (.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 binary64) (neg.f64 (-.f64 (.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))
(.f64 (pow.f64 (-.f64 (-.f64 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (-.f64 (.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 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (-.f64 (-.f64 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (-.f64 (-.f64 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 (.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 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))))
(sqrt.f64 (-.f64 (-.f64 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 (-.f64 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))))
(fabs.f64 (sqrt.f64 (-.f64 (-.f64 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))))
(exp.f64 (.f64 (log.f64 (-.f64 (-.f64 (.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 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))) #s(literal 1/2 binary64)))
(atan2.f64 (sqrt.f64 (-.f64 (.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 (.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 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (sqrt.f64 (-.f64 (.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 (.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 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))) (atan2.f64 (sqrt.f64 (-.f64 (.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 (.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 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))))) (atan2.f64 (sqrt.f64 (-.f64 (.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 (.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 (.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 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))))
(.f64 (atan2.f64 (sqrt.f64 (-.f64 (.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 (.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 (.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 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (.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 (.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 (.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 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (.f64 (atan2.f64 (sqrt.f64 (-.f64 (.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 (.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 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))) (atan2.f64 (sqrt.f64 (-.f64 (.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 (.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 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))))) (.f64 (atan2.f64 (sqrt.f64 (-.f64 (.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 (.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 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))) (atan2.f64 (sqrt.f64 (-.f64 (.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 (.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 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))))) (-.f64 (atan2.f64 (sqrt.f64 (-.f64 (.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 (.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 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))) (atan2.f64 (sqrt.f64 (-.f64 (.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 (.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 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (sqrt.f64 (-.f64 (.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 (.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 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))) #s(literal 3 binary64)) (pow.f64 (atan2.f64 (sqrt.f64 (-.f64 (.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 (.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 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))) #s(literal 3 binary64))) (+.f64 (.f64 (atan2.f64 (sqrt.f64 (-.f64 (.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 (.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 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))) (atan2.f64 (sqrt.f64 (-.f64 (.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 (.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 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))))) (-.f64 (.f64 (atan2.f64 (sqrt.f64 (-.f64 (.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 (.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 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))) (atan2.f64 (sqrt.f64 (-.f64 (.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 (.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 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))))) (.f64 (atan2.f64 (sqrt.f64 (-.f64 (.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 (.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 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))) (atan2.f64 (sqrt.f64 (-.f64 (.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 (.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 (.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 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))))))))
(-.f64 (atan2.f64 (sqrt.f64 (-.f64 (.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 (.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 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))) (neg.f64 (atan2.f64 (sqrt.f64 (-.f64 (.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 (.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 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))))))
(+.f64 (atan2.f64 (sqrt.f64 (-.f64 (.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 (.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 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))) (atan2.f64 (sqrt.f64 (-.f64 (.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 (.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 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))))
(.f64 (+.f64 R R) (atan2.f64 (sqrt.f64 (-.f64 (.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 (.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 (.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 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (-.f64 (.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 (.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 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 (atan2.f64 (sqrt.f64 (-.f64 (.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 (.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 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))) #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 (.f64 lambda1 lambda1) (.f64 (neg.f64 lambda2) (neg.f64 lambda2))) (-.f64 lambda1 (neg.f64 lambda2)))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (neg.f64 lambda2) #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 (neg.f64 lambda2) (neg.f64 lambda2)) (*.f64 lambda1 (neg.f64 lambda2)))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))
(/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 lambda2 lambda2) (*.f64 lambda1 lambda2))))
(neg.f64 (-.f64 lambda2 lambda1))
(-.f64 lambda1 (neg.f64 (neg.f64 lambda2)))
(-.f64 lambda1 lambda2)
(+.f64 lambda1 (neg.f64 lambda2))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(sin.f64 (+.f64 (-.f64 lambda2 lambda1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (-.f64 lambda1 lambda2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (neg.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 (neg.f64 lambda2))))
(cos.f64 (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1))))
(cos.f64 (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos.f64 (fabs.f64 (-.f64 lambda2 lambda1)))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))
(/.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 2 binary64))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 lambda1) (cos.f64 lambda2) (sin.f64 lambda1) (sin.f64 (neg.f64 lambda2)))
(.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 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (.f64 (cos.f64 (-.f64 lambda2 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 (-.f64 lambda2 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(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 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (neg.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (neg.f64 (*.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 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 3 binary64))) (+.f64 (.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 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (neg.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/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))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))
(neg.f64 (-.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #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) (neg.f64 (neg.f64 (*.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 #s(literal 1/2 binary64) (*.f64 (neg.f64 (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 #s(literal 1/2 binary64) (neg.f64 (*.f64 (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))) (cos.f64 phi1))
(.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 phi2) phi1)) phi1)
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1)
(/.f64 (-.f64 (.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))) (+.f64 (.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))) (+.f64 (.f64 phi1 phi1) (+.f64 (.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 (-.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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))
(/.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)))) (+.f64 (.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))) (+.f64 (.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (.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 phi2 phi1) #s(literal -2 binary64))
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (-.f64 phi2 phi1)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))
(neg.f64 (-.f64 (.f64 phi2 #s(literal 1/2 binary64)) (.f64 phi1 #s(literal 1/2 binary64))))
(-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 phi2 #s(literal 1/2 binary64)))
(+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 (neg.f64 phi2) #s(literal 1/2 binary64)))
(+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) phi2))
(+.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (/.f64 (neg.f64 phi2) #s(literal 2 binary64)))
(+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (neg.f64 (.f64 phi2 #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 (+.f64 (.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) #s(literal -2 binary64)) (-.f64 phi2 phi1)) #s(literal -2 binary64))
(/.f64 (+.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)) (-.f64 phi1 phi2)) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (-.f64 phi2 phi1) #s(literal -2 binary64)) (.f64 (-.f64 phi2 phi1) #s(literal -2 binary64))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal -2 binary64))) #s(literal -4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 phi1 phi2) #s(literal -2 binary64)) (.f64 (-.f64 phi2 phi1) #s(literal 2 binary64))) #s(literal -4 binary64))
(/.f64 (+.f64 (.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))) (+.f64 (.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 (+.f64 (.f64 (-.f64 phi2 phi1) #s(literal -2 binary64)) (.f64 #s(literal -2 binary64) (-.f64 phi2 phi1))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 phi2 phi1) #s(literal 2 binary64)) (.f64 #s(literal -2 binary64) (-.f64 phi1 phi2))) #s(literal -4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 phi1 phi2) #s(literal -2 binary64)) (.f64 #s(literal 2 binary64) (-.f64 phi2 phi1))) #s(literal -4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 phi1 phi2) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (-.f64 phi1 phi2))) #s(literal 4 binary64))
(134-z0z1z2z3z4 #s(literal 2 binary64) phi1 #s(literal 1/2 binary64) phi2 #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 2 binary64) phi1 #s(literal 1/2 binary64) #s(literal 1/2 binary64) phi2)
(134-z0z1z2z3z4 #s(literal 2 binary64) #s(literal 1/2 binary64) phi1 phi2 #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 2 binary64) #s(literal 1/2 binary64) phi1 #s(literal 1/2 binary64) phi2)
(-.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (neg.f64 (.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 (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 (.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 (*.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 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 #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 (.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 (-.f64 (.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))) (+.f64 (.f64 (-.f64 (.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 (.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 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 (.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)))))))
(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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #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 (+.f64 (fabs.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(-.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))))
(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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (.f64 (neg.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 (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))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (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)))) (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)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (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 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (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)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (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)))) (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)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (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 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (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)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (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)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (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)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (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 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 (+.f64 #s(literal 1 binary64) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))))) (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #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 (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 (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 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 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))))) (.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (-.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #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 #s(literal 1 binary64) (-.f64 phi1 phi2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))))) (-.f64 (.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))))) (-.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/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))) (+.f64 (.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))) (+.f64 (.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 (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))))) (-.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))))))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 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 (.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))) (+.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 (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))))))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 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 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (neg.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))))
(-.f64 #s(literal 1/2 binary64) (neg.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))))))
(-.f64 #s(literal 1/2 binary64) (neg.f64 (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 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))))) (pow.f64 (.f64 (neg.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 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))))) (pow.f64 (neg.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(+.f64 #s(literal 1/2 binary64) (.f64 (neg.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 #s(literal 1 binary64) (/.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #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)) (-.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(literal -1/2 binary64)))) (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #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)) #s(literal 1/2 binary64)) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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) (-.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 (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (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))) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))
(/.f64 (-.f64 (.f64 (-.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(literal -1/2 binary64)) (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (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 (-.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (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(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (.f64 (-.f64 (.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 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (+.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.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 #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 (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(literal 3 binary64))) (+.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(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (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))) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (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))) (+.f64 (.f64 (-.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(literal -1/2 binary64)) (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #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 (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (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(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (-.f64 (.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))) (+.f64 (.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (+.f64 (.f64 (-.f64 (.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 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 (.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(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (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 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 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 (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #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)) (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(literal -1/2 binary64))))
(neg.f64 (-.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))
(-.f64 (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (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))) (neg.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))
(-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(+.f64 (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))
(+.f64 (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))))
(+.f64 (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #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/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))
(+.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))))
(.f64 (pow.f64 (-.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.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) #s(literal 2 binary64))) (pow.f64 (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.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) #s(literal 2 binary64))))
(pow.f64 (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.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))
(sqrt.f64 (.f64 (sqrt.f64 (-.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 (.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(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 (.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(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 (.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 (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 (.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 (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 (.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 (-.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.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 (+.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) (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 (-.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 (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 (+.f64 (.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/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 #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 (.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))) (+.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 (.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/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))) (+.f64 (.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))) (+.f64 (.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 (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))) (+.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (+.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(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 (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))) (+.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 (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) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))
(neg.f64 (-.f64 (neg.f64 (.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 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #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))
(-.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 binary64) (.f64 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(+.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)))
(+.f64 #s(literal 1/2 binary64) (neg.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))))))
(+.f64 #s(literal 1/2 binary64) (neg.f64 (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 #s(literal 1 binary64) (/.f64 (neg.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (-.f64 (.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 (.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)) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 (.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 (.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 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 (neg.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) (-.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (neg.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (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)) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) (-.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 (-.f64 (.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 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 (.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 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64))) (-.f64 (.f64 (neg.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))) (.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (neg.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (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)) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.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)) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))))))
(/.f64 (-.f64 (.f64 (-.f64 (.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 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64))) (.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))) (+.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (-.f64 (.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 (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 (.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 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64))) (+.f64 (.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 (.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 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (neg.f64 (neg.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))))
(-.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))
(-.f64 #s(literal 1/2 binary64) (neg.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))))
(+.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (neg.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))
(.f64 (pow.f64 (-.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (-.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (-.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))))
(sqrt.f64 (-.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))))
(fabs.f64 (sqrt.f64 (-.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))))
(exp.f64 (.f64 (log.f64 (-.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))) #s(literal 1/2 binary64)))
(atan2.f64 (sqrt.f64 (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 (.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 R R)) R)
(*.f64 #s(literal 2 binary64) R)
(*.f64 R #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 R R) (.f64 R R)) (-.f64 R R))
(/.f64 (+.f64 (pow.f64 R #s(literal 3 binary64)) (pow.f64 R #s(literal 3 binary64))) (+.f64 (.f64 R R) (-.f64 (.f64 R R) (*.f64 R R))))
(-.f64 R (neg.f64 R))
(+.f64 R R)
(.f64 (.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 (.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(.f64 (+.f64 R R) (atan2.f64 (sqrt.f64 (-.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 (.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))))
(.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 (.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) (+.f64 R R))
(.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 (pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) (/.f64 #s(literal -1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) (/.f64 #s(literal -1 binary64) #s(literal 2 binary64))))
(*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1 binary64)) (pow.f64 (/.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))
(*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))
(*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 #s(literal 1/2 binary64) (/.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))
(.f64 #s(literal 1 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(/.f64 (-.f64 (.f64 (.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 2 binary64)) lambda2) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64)))) (+.f64 (.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))) (+.f64 (.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64))) (+.f64 (.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 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))
(/.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))
(/.f64 #s(literal 1 binary64) (pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(134-z0z1z2z3z4 #s(literal 1 binary64) lambda1 #s(literal 1/2 binary64) lambda2 #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 1 binary64) lambda1 #s(literal 1/2 binary64) #s(literal 1/2 binary64) lambda2)
(134-z0z1z2z3z4 #s(literal 1 binary64) #s(literal 1/2 binary64) lambda1 lambda2 #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 1 binary64) #s(literal 1/2 binary64) lambda1 #s(literal 1/2 binary64) lambda2)
(neg.f64 (-.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64))))
(-.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))
(+.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 #s(literal -1/2 binary64) lambda2))
(+.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))
(+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (neg.f64 (.f64 lambda2 #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 (+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal -1 binary64)) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))
(/.f64 (+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) #s(literal -2 binary64)) (-.f64 lambda2 lambda1)) #s(literal -2 binary64))
(/.f64 (+.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
(/.f64 (+.f64 (.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal 1 binary64)) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(/.f64 (+.f64 (.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (*.f64 (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))
(/.f64 (+.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda2 lambda1) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (.f64 (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -2 binary64)))
(/.f64 (+.f64 #s(literal -2 binary64) (.f64 (-.f64 lambda1 lambda2) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (.f64 (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))
(/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) (.f64 #s(literal 1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))) (*.f64 (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))
(/.f64 (+.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64)) (.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64))) #s(literal -4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)) (.f64 (-.f64 lambda2 lambda1) #s(literal 2 binary64))) #s(literal -4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 #s(literal 1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))
(/.f64 (+.f64 #s(literal -2 binary64) (.f64 (-.f64 lambda2 lambda1) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal -2 binary64)))
(/.f64 (+.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))
(/.f64 (+.f64 (.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) (.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (*.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 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))) (+.f64 (.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 (+.f64 (.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (.f64 (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))) (*.f64 (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))
(/.f64 (+.f64 #s(literal 2 binary64) (.f64 (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) (-.f64 lambda2 lambda1))) (.f64 (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -2 binary64)))
(/.f64 (+.f64 #s(literal -2 binary64) (.f64 (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) (-.f64 lambda1 lambda2))) (.f64 (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))
(/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) (.f64 (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal 1 binary64))) (*.f64 (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))
(/.f64 (+.f64 (.f64 (-.f64 lambda2 lambda1) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64)) (.f64 #s(literal -2 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))
(/.f64 (+.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64)) (.f64 #s(literal -2 binary64) (-.f64 lambda2 lambda1))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 lambda2 lambda1) #s(literal 2 binary64)) (.f64 #s(literal -2 binary64) (-.f64 lambda1 lambda2))) #s(literal -4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 lambda2 lambda1) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -2 binary64)) (.f64 #s(literal -2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))
(/.f64 (+.f64 (.f64 (-.f64 lambda1 lambda2) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) #s(literal -2 binary64)) (.f64 #s(literal 2 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))
(/.f64 (+.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal -2 binary64)) (.f64 #s(literal 2 binary64) (-.f64 lambda2 lambda1))) #s(literal -4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal 4 binary64))
(/.f64 (+.f64 (.f64 (-.f64 lambda1 lambda2) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))
(/.f64 (+.f64 (.f64 #s(literal 1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))) (.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal -1 binary64))) (*.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))
(/.f64 (+.f64 #s(literal -2 binary64) (.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) (-.f64 lambda2 lambda1))) (.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal -2 binary64)))
(/.f64 (+.f64 #s(literal 2 binary64) (.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) (-.f64 lambda1 lambda2))) (.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))
(/.f64 (+.f64 (.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) (.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64))) (*.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))
(/.f64 #s(literal -2 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))
(/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(134-z0z1z2z3z4 #s(literal 2 binary64) lambda1 #s(literal 1/2 binary64) lambda2 #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 2 binary64) lambda1 #s(literal 1/2 binary64) #s(literal 1/2 binary64) lambda2)
(134-z0z1z2z3z4 #s(literal 2 binary64) #s(literal 1/2 binary64) lambda1 lambda2 #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 2 binary64) #s(literal 1/2 binary64) lambda1 #s(literal 1/2 binary64) lambda2)
(-.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (neg.f64 (.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 (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 (-.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 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 (.f64 (+.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 lambda1 lambda2))) #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 #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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #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 lambda1 lambda2))) #s(literal 1/2 binary64))) #s(literal 3 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 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #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 #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 (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 (-.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 lambda1 lambda2))) #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 (+.f64 (fabs.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) (.f64 (PI.f64) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))
(cos.f64 (neg.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))))
(cos.f64 (neg.f64 (fabs.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))))
(cos.f64 (fabs.f64 (fabs.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))))
(cos.f64 (neg.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))))
(cos.f64 (fabs.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))))
(cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))
(+.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 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) (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 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)))))
(+.f64 (+.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 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) #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) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))))
(/.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (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)))) (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)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (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)))) (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)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (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)))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (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)))) (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)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (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)))) (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)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (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)))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (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)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.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 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (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 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))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.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 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))))))
(/.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 lambda1 lambda2))) #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) (neg.f64 (.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 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))) #s(literal 3 binary64))) (+.f64 (.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 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))))))))
(/.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 lambda1 lambda2))) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #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) (neg.f64 (.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))) (+.f64 (.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))))))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (+.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.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))))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (+.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.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))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.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))))
(neg.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(-.f64 #s(literal 1/2 binary64) (neg.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))))))
(-.f64 #s(literal 1/2 binary64) (neg.f64 (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 #s(literal 1/2 binary64) (.f64 (neg.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 1 binary64) (-.f64 lambda1 lambda2)))))
(+.f64 #s(literal 1/2 binary64) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))
(PI.f64)
(*.f64 (PI.f64) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (PI.f64))
(/.f64 (neg.f64 (PI.f64)) #s(literal -2 binary64))
(/.f64 (PI.f64) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (PI.f64)))
(log.f64 (pow.f64 (exp.f64 (PI.f64)) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (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 (-.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))) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 phi1)))
(/.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))) (+.f64 (.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 (.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))) (+.f64 (.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 phi1 (*.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 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 phi1))
(.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))) (+.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 (.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))))))
(neg.f64 (-.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))))
(neg.f64 (sin.f64 (-.f64 phi1 (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))
(-.f64 (.f64 (sin.f64 (.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 (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))) (neg.f64 (sin.f64 phi1))))
(.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2))
(.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (+.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))) (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))) (cos.f64 (+.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))) (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (fabs.f64 phi2))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (neg.f64 phi2))) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2)) (sin.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) phi2))) #s(literal 2 binary64))
(134-z0z1z2z3z4 (cos.f64 phi2) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.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 phi2)) (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)))
(.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (.f64 (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)))
(134-z0z1z2z3z4 (.f64 (-.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)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64))) (cos.f64 phi1) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 phi1))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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 #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)) (-.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) #s(literal -1/2 binary64)))) (-.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #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)) #s(literal 1/2 binary64)) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.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 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 (-.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) #s(literal -1/2 binary64)) (-.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #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 (-.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) #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 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))) (.f64 (-.f64 (.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 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (+.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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 #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 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.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 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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 (-.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) #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))) (+.f64 (.f64 (-.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) #s(literal -1/2 binary64)) (-.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #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 (-.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) #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 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #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)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))) (+.f64 (.f64 (-.f64 (.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 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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 (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 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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 (+.f64 (pow.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #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))) (+.f64 (.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))) (-.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 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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)))))))
(neg.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (-.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) #s(literal -1/2 binary64))))
(neg.f64 (-.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))
(-.f64 (-.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))
(-.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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 #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))) (neg.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))
(+.f64 (-.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) #s(literal -1/2 binary64)) (.f64 (neg.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))) #s(literal 1/2 binary64)))
(+.f64 (-.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) #s(literal -1/2 binary64)) (.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))))
(+.f64 (-.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) #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 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))
(.f64 (pow.f64 (+.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (+.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (+.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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)))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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))))) (sqrt.f64 (+.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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)))))))
(sqrt.f64 (+.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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)))))
(fabs.f64 (neg.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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)))))))
(fabs.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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))))))
(exp.f64 (.f64 (log.f64 (+.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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))))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2))) (-.f64 (.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 (.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 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.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 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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 (.f64 (-.f64 (.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 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64))) (.f64 (.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2))) (.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2))))) (-.f64 (-.f64 (.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 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)))))
(/.f64 (-.f64 (.f64 (-.f64 (.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 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64))) (.f64 (neg.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))) (-.f64 (-.f64 (.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 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))))
(/.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 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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 (-.f64 (.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 (.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 (.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 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2))) (.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)))) (.f64 (-.f64 (.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 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)))))))
(/.f64 (+.f64 (pow.f64 (-.f64 (.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 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 (.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 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64))) (-.f64 (.f64 (neg.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))) (.f64 (-.f64 (.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 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))) #s(literal 3 binary64))) (+.f64 (.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 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))))))
(/.f64 (-.f64 (.f64 (-.f64 (.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 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64))) (.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))) (+.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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 (-.f64 (.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 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 (.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 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64))) (+.f64 (.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))) (.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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)) #s(literal -1/2 binary64)) (neg.f64 (.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)))))
(-.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (neg.f64 (neg.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))))
(-.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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) (neg.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))))
(+.f64 (-.f64 (.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 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi2))) (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))))
(+.f64 (-.f64 (.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 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))
(+.f64 (-.f64 (.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 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2))))
(+.f64 (-.f64 (.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 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))
(.f64 (pow.f64 (-.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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) #s(literal 2 binary64))) (pow.f64 (-.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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) #s(literal 2 binary64))))
(pow.f64 (-.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (-.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))))
(sqrt.f64 (-.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))))
(fabs.f64 (sqrt.f64 (-.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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 (-.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))) #s(literal 1/2 binary64)))
(atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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))))) (sqrt.f64 (-.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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))))) (sqrt.f64 (-.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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))))) (sqrt.f64 (-.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))) (+.f64 R R))
(.f64 (+.f64 R R) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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))))) (sqrt.f64 (-.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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 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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))
(/.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)))) (+.f64 (.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))) (+.f64 (.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (.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 phi2 phi1) #s(literal -2 binary64))
(/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal -2 binary64) (-.f64 phi2 phi1)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 phi1 phi2)))
(neg.f64 (-.f64 (.f64 phi2 #s(literal 1/2 binary64)) (.f64 phi1 #s(literal 1/2 binary64))))
(-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 phi2 #s(literal 1/2 binary64)))
(+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 (neg.f64 phi2) #s(literal 1/2 binary64)))
(+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) phi2))
(+.f64 (*.f64 phi1 #s(literal 1/2 binary64)) (/.f64 (neg.f64 phi2) #s(literal 2 binary64)))
(+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (neg.f64 (.f64 phi2 #s(literal 1/2 binary64))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (neg.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) (neg.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (.f64 (neg.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) (neg.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (sin.f64 (+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 phi2 #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))))))
(neg.f64 (neg.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 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))))
(-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (neg.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))))
(-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
(+.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))
(+.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))))
(+.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 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 (+.f64 #s(literal 1 binary64) (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))))) (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #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 (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 (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 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 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))))) (.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)))) (-.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #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 #s(literal 1 binary64) (-.f64 phi1 phi2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)))))) (-.f64 (.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))))) (-.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/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))) (+.f64 (.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))) (+.f64 (.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 (pow.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))))) (-.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))) (.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))))))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 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 (.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))) (+.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 (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))))))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 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 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (neg.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64))))
(-.f64 #s(literal 1/2 binary64) (neg.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))))))
(-.f64 #s(literal 1/2 binary64) (neg.f64 (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 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))))) (pow.f64 (.f64 (neg.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 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))))))) (pow.f64 (neg.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64)))
(+.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(+.f64 #s(literal 1/2 binary64) (.f64 (neg.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 #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 (pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) (/.f64 #s(literal -1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) (/.f64 #s(literal -1 binary64) #s(literal 2 binary64))))
(*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1 binary64)) (pow.f64 (/.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))
(*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))
(*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 #s(literal 1/2 binary64) (/.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))
(.f64 #s(literal 1 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(/.f64 (-.f64 (.f64 (.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 2 binary64)) lambda2) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64)))) (+.f64 (.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))) (+.f64 (.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64))) (+.f64 (.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 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))
(/.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))
(/.f64 #s(literal 1 binary64) (pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(134-z0z1z2z3z4 #s(literal 1 binary64) lambda1 #s(literal 1/2 binary64) lambda2 #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 1 binary64) lambda1 #s(literal 1/2 binary64) #s(literal 1/2 binary64) lambda2)
(134-z0z1z2z3z4 #s(literal 1 binary64) #s(literal 1/2 binary64) lambda1 lambda2 #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 1 binary64) #s(literal 1/2 binary64) lambda1 #s(literal 1/2 binary64) lambda2)
(neg.f64 (-.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64))))
(-.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))
(+.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 #s(literal -1/2 binary64) lambda2))
(+.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))
(+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (neg.f64 (.f64 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 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (.f64 (neg.f64 (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 (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))))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (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 (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 (pow.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (-.f64 (.f64 (.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 (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))))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (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 (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (-.f64 (.f64 (neg.f64 (.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 (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 (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (sin.f64 (+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (+.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))))))
(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)))
(-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (neg.f64 (.f64 (neg.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))
(-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (neg.f64 (neg.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))))
(-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(+.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(+.f64 (.f64 (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)))))
(+.f64 (.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 (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 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #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 (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 (.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 (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/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)))
(134-z0z1z2z3z4 (.f64 (.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))) (sin.f64 (+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.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))) (sin.f64 (+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.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))))
(134-z0z1z2z3z4 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.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 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))
(.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 (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 #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 (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 #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 (cos.f64 (.f64 #s(literal 1 binary64) (-.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 #s(literal 1 binary64) (-.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 #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 (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 (-.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 (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 (.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 (-.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))))
(/.f64 (+.f64 (pow.f64 (.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)))) #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))) (+.f64 (.f64 (.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 (.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 (.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 (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 (-.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))) (+.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 (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 (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))))) #s(literal 3 binary64))) (+.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)) (-.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 (.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 (-.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 (cos.f64 (*.f64 #s(literal 1 binary64) (-.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 (.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 (.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 (-.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.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 (.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)))) #s(literal 3 binary64))) (+.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 (.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 (.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 (-.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 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))))
(neg.f64 (neg.f64 (-.f64 (.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 (.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #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 #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 (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 (.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 (-.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 (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 (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 (neg.f64 (.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 (-.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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))
(.f64 (pow.f64 (-.f64 (.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 (.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 (-.f64 (.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 (.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 (-.f64 (.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 (.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 (-.f64 (.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 (.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 (.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 (.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 (.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 (.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 (-.f64 (.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 (.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 (-.f64 (.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 (.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 (-.f64 (.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 (.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 #s(literal -2 binary64) (/.f64 #s(literal 1 binary64) (-.f64 lambda2 lambda1)))
(*.f64 #s(literal 2 binary64) (/.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1)))
(/.f64 #s(literal -2 binary64) (-.f64 lambda2 lambda1))
(/.f64 #s(literal 1 binary64) (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))
(+.f64 (/.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1)) (/.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1)))
(.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 (pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) (/.f64 #s(literal -1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) (/.f64 #s(literal -1 binary64) #s(literal 2 binary64))))
(*.f64 (pow.f64 #s(literal 2 binary64) #s(literal -1 binary64)) (pow.f64 (/.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1)) #s(literal -1 binary64)))
(*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))
(*.f64 (-.f64 lambda2 lambda1) #s(literal -1/2 binary64))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 #s(literal 1/2 binary64) (/.f64 #s(literal -1 binary64) (-.f64 lambda2 lambda1))))
(.f64 #s(literal 1 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))
(*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal -1 binary64))
(/.f64 (-.f64 (.f64 (.f64 lambda1 #s(literal 1/2 binary64)) #s(literal 2 binary64)) lambda2) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64))) (.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64)))) (+.f64 (.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))) (+.f64 (.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64))) (+.f64 (.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 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))))
(/.f64 (-.f64 lambda2 lambda1) #s(literal -2 binary64))
(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))))
(/.f64 #s(literal 1 binary64) (pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) #s(literal 1 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)))
(134-z0z1z2z3z4 #s(literal 1 binary64) lambda1 #s(literal 1/2 binary64) lambda2 #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 1 binary64) lambda1 #s(literal 1/2 binary64) #s(literal 1/2 binary64) lambda2)
(134-z0z1z2z3z4 #s(literal 1 binary64) #s(literal 1/2 binary64) lambda1 lambda2 #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 1 binary64) #s(literal 1/2 binary64) lambda1 #s(literal 1/2 binary64) lambda2)
(neg.f64 (-.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64))))
(-.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64)))
(+.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 #s(literal -1/2 binary64) lambda2))
(+.f64 (*.f64 lambda1 #s(literal 1/2 binary64)) (/.f64 (neg.f64 lambda2) #s(literal 2 binary64)))
(+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (neg.f64 (.f64 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 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (.f64 (neg.f64 (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 (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))))))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (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 (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 (pow.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (-.f64 (.f64 (.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 (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))))))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (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 (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (-.f64 (.f64 (neg.f64 (.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 (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 (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))) (sin.f64 (+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (+.f64 (.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))))))
(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)))
(-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (neg.f64 (.f64 (neg.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))
(-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (neg.f64 (neg.f64 (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))))
(-.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(+.f64 (.f64 (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))))
(+.f64 (.f64 (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)))))
(+.f64 (.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 #s(literal 1 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))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.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 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))))))
(/.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 lambda1 lambda2))) #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) (neg.f64 (.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 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)))) #s(literal 3 binary64))) (+.f64 (.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 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))))))))
(/.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 lambda1 lambda2))) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #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) (neg.f64 (.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))) (+.f64 (.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))))))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (+.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.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))))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #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 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (+.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (+.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.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))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.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))))
(neg.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(-.f64 #s(literal 1/2 binary64) (neg.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))))))
(-.f64 #s(literal 1/2 binary64) (neg.f64 (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 #s(literal 1/2 binary64) (.f64 (neg.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 1 binary64) (-.f64 lambda1 lambda2)))))
(+.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 (-.f64 #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 (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 (fabs.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (fabs.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(.f64 (neg.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 1 binary64)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (*.f64 phi1 #s(literal 1/2 binary64))))))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 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))) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 phi1 #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))) (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 phi1 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 phi1 #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))) (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 phi1 #s(literal 1/2 binary64))))))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 phi1 #s(literal 1/2 binary64)))))))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))) (-.f64 (.f64 (.f64 (-.f64 #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 phi1 #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))) (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 phi1 #s(literal 1/2 binary64))))))) #s(literal 3 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 (.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 phi1 #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))) (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 phi1 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 phi1 #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))) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 3 binary64))) (+.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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 phi1 #s(literal 1/2 binary64))))))))))
(neg.f64 (neg.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #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 phi1 #s(literal 1/2 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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 phi1 #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 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)))) #s(literal 1 binary64))) #s(literal 1 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 phi1 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1 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 #s(literal 1 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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #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 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (neg.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #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 binary64) (neg.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #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 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 #s(literal 1 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 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (-.f64 #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 phi1 #s(literal 1/2 binary64))))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(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))) (+.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (-.f64 (.f64 (neg.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))) (.f64 #s(literal 1 binary64) (neg.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #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 #s(literal 1 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))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 #s(literal 1 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 #s(literal 1 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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))) (.f64 (-.f64 #s(literal 1 binary64) (.f64 (-.f64 #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 phi1 #s(literal 1/2 binary64))))))))))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #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 phi1 #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))) (cos.f64 phi1))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (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 phi1 #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))) (cos.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #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))) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1 binary64) #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 phi1 #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))) (cos.f64 phi1))) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (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 phi1 #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))) (cos.f64 phi1)))))))
(neg.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1 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)))))
(neg.f64 (-.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(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 1 binary64)))
(-.f64 (-.f64 #s(literal 1 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 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))))
(-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))) (.f64 (neg.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi1 #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 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))) (neg.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64))))))))
(+.f64 #s(literal 1 binary64) (neg.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)))))
#s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))) (/.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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))) (/.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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))) #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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))))))
(sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))))
(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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))))))
(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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)))))))
(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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) #s(literal 1/2 binary64)))
(atan2.f64 (sqrt.f64 (-.f64 (.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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 (atan2.f64 (sqrt.f64 (-.f64 (.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))))) (atan2.f64 (sqrt.f64 (-.f64 (.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))))))) (atan2.f64 (sqrt.f64 (-.f64 (.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))))))
(.f64 (atan2.f64 (sqrt.f64 (-.f64 (.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))))))
(/.f64 (-.f64 (.f64 (atan2.f64 (sqrt.f64 (-.f64 (.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))))) (atan2.f64 (sqrt.f64 (-.f64 (.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)))))))) (.f64 (atan2.f64 (sqrt.f64 (-.f64 (.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))))) (atan2.f64 (sqrt.f64 (-.f64 (.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))))))) (-.f64 (atan2.f64 (sqrt.f64 (-.f64 (.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))))) (atan2.f64 (sqrt.f64 (-.f64 (.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)))))))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (sqrt.f64 (-.f64 (.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))))) #s(literal 3 binary64)) (pow.f64 (atan2.f64 (sqrt.f64 (-.f64 (.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))))) #s(literal 3 binary64))) (+.f64 (.f64 (atan2.f64 (sqrt.f64 (-.f64 (.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))))) (atan2.f64 (sqrt.f64 (-.f64 (.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)))))))) (-.f64 (.f64 (atan2.f64 (sqrt.f64 (-.f64 (.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))))) (atan2.f64 (sqrt.f64 (-.f64 (.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)))))))) (.f64 (atan2.f64 (sqrt.f64 (-.f64 (.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))))) (atan2.f64 (sqrt.f64 (-.f64 (.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)))))))))))
(-.f64 (atan2.f64 (sqrt.f64 (-.f64 (.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))))) (neg.f64 (atan2.f64 (sqrt.f64 (-.f64 (.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1)))))))))
(+.f64 (atan2.f64 (sqrt.f64 (-.f64 (.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))))) (atan2.f64 (sqrt.f64 (-.f64 (.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (-.f64 (.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))))) #s(literal 2 binary64)) R)
(.f64 (+.f64 R R) (atan2.f64 (sqrt.f64 (-.f64 (.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))))))
(.f64 R (.f64 (atan2.f64 (sqrt.f64 (-.f64 (.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))))) #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 (fabs.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (fabs.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi2) phi1)) (cos.f64 (-.f64 (fabs.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (neg.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi2) (fabs.f64 phi1))) (cos.f64 (-.f64 (neg.f64 phi2) (fabs.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (-.f64 (neg.f64 phi2) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 phi2 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) (fabs.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (neg.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (neg.f64 phi1) phi2)) (cos.f64 (-.f64 (neg.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (fabs.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) (neg.f64 phi2))) (cos.f64 (-.f64 (fabs.f64 phi1) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 (fabs.f64 phi1) phi2)) (cos.f64 (-.f64 (fabs.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 (fabs.f64 phi2))) (cos.f64 (-.f64 phi1 (fabs.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi1 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))) (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))) (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))) 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 (-.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 (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 (.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 (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/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)))
(134-z0z1z2z3z4 (.f64 (.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))) (sin.f64 (+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.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))) (sin.f64 (+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 1/2 binary64) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.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))))
(134-z0z1z2z3z4 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.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))))
(sin.f64 phi1)
(neg.f64 phi2)
(neg.f64 (sin.f64 phi2))
(sin.f64 (+.f64 phi2 (PI.f64)))
(sin.f64 (neg.f64 phi2))
(cos.f64 (+.f64 phi2 (*.f64 (PI.f64) #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))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (neg.f64 (sin.f64 phi2)) (sin.f64 phi1))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (sin.f64 phi1) (neg.f64 (sin.f64 phi2)))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (neg.f64 (sin.f64 phi2)) (sin.f64 phi1))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 phi2 phi1)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64) (sin.f64 phi1) (neg.f64 (sin.f64 phi2)))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (-.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (neg.f64 (sin.f64 phi2)) (sin.f64 phi1))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (neg.f64 (sin.f64 phi2)))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi1) (cos.f64 phi2) (-.f64 (cos.f64 (+.f64 phi1 phi2)) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi1) (cos.f64 phi2) (neg.f64 (sin.f64 phi2)) (sin.f64 phi1))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi1) (cos.f64 phi2) (sin.f64 phi1) (neg.f64 (sin.f64 phi2)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))) #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(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)) #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(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (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 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #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(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))))
(/.f64 (+.f64 (pow.f64 #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))) (+.f64 (.f64 #s(literal 1/2 binary64) #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(literal 1/2 binary64) (neg.f64 (*.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 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #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))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(neg.f64 (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(-.f64 #s(literal 1/2 binary64) (neg.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))
(-.f64 #s(literal 1/2 binary64) (neg.f64 (neg.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(+.f64 #s(literal 1/2 binary64) (*.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64)))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))
(+.f64 #s(literal 1/2 binary64) (neg.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.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 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 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (-.f64 (.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)))) #s(literal -1/2 binary64)))) (-.f64 (.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)))) #s(literal -1/2 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (.f64 (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 (.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 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (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 (.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 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (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 (.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 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.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 (-.f64 (.f64 (-.f64 (.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)))) #s(literal -1/2 binary64)) (-.f64 (.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)))) #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 (.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)))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 (.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 (.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 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (+.f64 (.f64 (.f64 (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 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (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)))) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (-.f64 (.f64 (.f64 (.f64 (cos.f64 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 (.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 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.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 (-.f64 (pow.f64 (-.f64 (.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)))) #s(literal -1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 (.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)))) #s(literal -1/2 binary64)) (-.f64 (.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)))) #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 (.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)))) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (.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)))) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (.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 (.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 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (.f64 (.f64 (.f64 (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 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #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 (cos.f64 (.f64 #s(literal 1 binary64) (-.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 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (-.f64 (.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 phi2 phi1)) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 (.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)))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (.f64 (.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 (.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 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (.f64 (.f64 (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 phi2 phi1)) #s(literal 1/2 binary64)))))))
(neg.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (-.f64 (.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)))) #s(literal -1/2 binary64))))
(neg.f64 (-.f64 (-.f64 (.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))
(-.f64 (-.f64 (.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)))) #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))) (neg.f64 (.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 (.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 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(+.f64 (-.f64 (.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)))) #s(literal -1/2 binary64)) (*.f64 (neg.f64 (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64)))
(+.f64 (-.f64 (.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)))) #s(literal -1/2 binary64)) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))
(+.f64 (-.f64 (.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)))) #s(literal -1/2 binary64)) (neg.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (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 (.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 phi2 phi1)) #s(literal 1/2 binary64))))
(.f64 (pow.f64 (-.f64 (.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 (.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 (-.f64 (.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 (*.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 (-.f64 (.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 (*.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 (-.f64 (.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 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.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 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))))
(sqrt.f64 (-.f64 (.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 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 (.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 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))))
(fabs.f64 (sqrt.f64 (-.f64 (.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 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))
(exp.f64 (.f64 (log.f64 (-.f64 (.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 (.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64))) #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(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)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(/.f64 (+.f64 (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #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(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64))) (+.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 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #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(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))))
(/.f64 (-.f64 (pow.f64 #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))) (+.f64 (.f64 #s(literal 1/2 binary64) #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(literal 1/2 binary64) (neg.f64 (*.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 (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))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))
(neg.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1))) #s(literal 1/2 binary64)))
(neg.f64 (-.f64 (neg.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))
(-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1))))
(-.f64 #s(literal 1/2 binary64) (neg.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))
(+.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (neg.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi2 phi1)))))
(+.f64 #s(literal 1/2 binary64) (neg.f64 (neg.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 (.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 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)))) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (.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 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)))) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.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))))) #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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)))) (-.f64 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)))
(/.f64 (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64))) (.f64 (.f64 (-.f64 (.f64 (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 (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 (cos.f64 (-.f64 phi2 phi1)) #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)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64))) (.f64 (neg.f64 (.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 (.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 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (neg.f64 (.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 (-.f64 (.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 (.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 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.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 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.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 (+.f64 (pow.f64 (-.f64 (.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 (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))) (+.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64))) (-.f64 (.f64 (.f64 (-.f64 (.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 (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 (cos.f64 (-.f64 phi2 phi1)) #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)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (+.f64 (pow.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.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))))) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64))) (-.f64 (.f64 (neg.f64 (.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 (.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 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (neg.f64 (.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 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.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))))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.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 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.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 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.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 (-.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64))) (.f64 (.f64 (.f64 (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 (.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 (-.f64 (.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 #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 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #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 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64))) (+.f64 (.f64 (.f64 (.f64 (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 (.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 (-.f64 (.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))))
(neg.f64 (-.f64 (.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 (*.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64))))
(-.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (neg.f64 (.f64 (-.f64 (.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 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (neg.f64 (neg.f64 (.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 (-.f64 (.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 #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) (neg.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.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 (-.f64 (.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 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi2))) (cos.f64 phi1)))
(+.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (.f64 (neg.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 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (.f64 (neg.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 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #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 (cos.f64 (-.f64 phi2 phi1)) #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)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (-.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (neg.f64 (.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 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.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 (pow.f64 (-.f64 (-.f64 (.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 #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) #s(literal 2 binary64))) (pow.f64 (-.f64 (-.f64 (.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 #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) #s(literal 2 binary64))))
(pow.f64 (-.f64 (-.f64 (.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (-.f64 (-.f64 (.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 (.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))))
(sqrt.f64 (-.f64 (-.f64 (.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 (-.f64 (.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))))
(fabs.f64 (sqrt.f64 (-.f64 (-.f64 (.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 #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 (-.f64 (-.f64 (.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))) #s(literal 1/2 binary64)))
(atan2.f64 (sqrt.f64 (-.f64 (.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 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (-.f64 (.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (-.f64 (.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 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (-.f64 (.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 (-.f64 (.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 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (-.f64 (.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))) (+.f64 R R))
(.f64 (+.f64 R R) (atan2.f64 (sqrt.f64 (-.f64 (.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 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (-.f64 (.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))))

eval9.6s (18.0%)

Memory

-395.0MiB live, 3 383.2MiB allocated; 15.1s collecting garbage

Samples

1.7s	28 377×	0	valid
66.0ms	1 063×	0	invalid

Compiler

Compiled 308 628 to 22 489 computations (92.7% saved)

Precisions

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

ival-mult!: 426.0ms (75.9% of total)

ival-sub!: 95.0ms (16.9% of total)

adjust: 41.0ms (7.3% of total)

prune1.7s (3.1%)

Memory

26.6MiB live, 2 236.2MiB allocated; 273ms collecting garbage

Pruning

192 alts after pruning (192 fresh and 0 done)

	Pruned	Kept	Total
New	2 258	130	2 388
Fresh	65	62	127
Picked	5	0	5
Done	0	0	0
Total	2 328	192	2 520

Accuracy

99.7%

Counts

2 520 → 192

Alt Table

Click to see full alt table

Status	Accuracy	Program
	45.6%	(.f64 (atan2.f64 (.f64 (pow.f64 (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.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) #s(literal 2 binary64))) (pow.f64 (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.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) #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 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))) (*.f64 #s(literal 2 binary64) R))
	45.5%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (-.f64 (.f64 (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(literal -1/2 binary64)) (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (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 (-.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (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 (+.f64 #s(literal 1/2 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 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))) (*.f64 #s(literal 2 binary64) R))
	55.5%	(.f64 (atan2.f64 (sqrt.f64 (-.f64 (-.f64 (.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)))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.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 #s(literal 2 binary64) R))
	70.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))) (.f64 (134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	72.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	54.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 R R))
	43.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 (-.f64 #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) phi1)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) (+.f64 R R))
	69.7%	(.f64 (atan2.f64 (sqrt.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) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))) (.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 2 binary64) R))
	31.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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) (sin.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	30.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.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 2 binary64) R))
	38.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	25.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) (/.f64 #s(literal -1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) (/.f64 #s(literal -1 binary64) #s(literal 2 binary64)))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.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 (pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) (/.f64 #s(literal -1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) (/.f64 #s(literal -1 binary64) #s(literal 2 binary64)))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	54.2%	(.f64 (atan2.f64 (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 (+.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 #s(literal 1/2 binary64)))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 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 (+.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 #s(literal 1/2 binary64)))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	41.3%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 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 (-.f64 (cos.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)))))) (.f64 #s(literal 2 binary64) R))
	38.1%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (sin.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (.f64 (PI.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) (-.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 (sin.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))))))) (.f64 #s(literal 2 binary64) R))
	43.2%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (sin.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi1) (sin.f64 phi1) (sin.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 (sin.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	47.0%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (sin.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi1))) (-.f64 #s(literal 1/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 (sin.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	43.4%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (sin.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi1) (sin.f64 phi1) (sin.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 (sin.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	28.2%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)))) (-.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)))))))) (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) (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))))))) (.f64 #s(literal 2 binary64) R))
	45.7%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 (PI.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) (-.f64 phi1 phi2)))))))) (sqrt.f64 (+.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 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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 2 binary64) R))
	36.2%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 (PI.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) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))))))) (.f64 #s(literal 2 binary64) R))
	39.7%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 (PI.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) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))))) (.f64 #s(literal 2 binary64) R))
	40.6%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 (PI.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) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))) (.f64 #s(literal 2 binary64) R))
	33.7%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 (PI.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) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))) (*.f64 #s(literal 2 binary64) R))
	30.3%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) 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)))))) (sqrt.f64 (-.f64 (+.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)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(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 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))))))) (.f64 #s(literal 2 binary64) R))
	30.2%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 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 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) (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))))))) (*.f64 #s(literal 2 binary64) R))
	45.2%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 (.f64 (PI.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) (-.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) (sin.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))))))) (.f64 #s(literal 2 binary64) R))
	26.0%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (* (PI) 1/2) phi1) (.f64 #s(literal -1 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) (-.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) (sin.f64 #s(approx (- (* (PI) 1/2) phi1) (.f64 #s(literal -1 binary64) phi1)))))))) (.f64 #s(literal 2 binary64) R))
	55.5%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (/.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 (.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) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.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 #s(literal 2 binary64) R))
	55.1%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (+.f64 phi2 (PI.f64))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (+.f64 phi2 (PI.f64))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.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))
	54.9%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 (-.f64 (-.f64 (.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))) (.f64 #s(literal 2 binary64) R))
	26.3%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.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 (+.f64 (pow.f64 R #s(literal 3 binary64)) (pow.f64 R #s(literal 3 binary64))) (+.f64 (.f64 R R) (-.f64 (.f64 R R) (.f64 R R)))))
	41.6%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 (-.f64 #s(approx (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R))
	40.6%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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)))))))))) (*.f64 #s(literal 2 binary64) R))
	50.0%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.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 2 binary64) R))
	35.6%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2)))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))) (.f64 #s(literal 2 binary64) R))
	44.7%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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 2 binary64) R))
	51.7%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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 2 binary64) R))
	56.6%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.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 2 binary64) R))
	42.4%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg 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 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 2 binary64) R))
	26.1%	(.f64 (atan2.f64 (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 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 phi1 phi2) (.f64 #s(literal -1/2 binary64) (PI.f64)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (-.f64 (-.f64 phi1 phi2) (.f64 #s(literal -1/2 binary64) (PI.f64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.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))
	26.8%	(.f64 (atan2.f64 (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 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)))))))) (sqrt.f64 (-.f64 (+.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)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.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))
	54.4%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.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))
	37.1%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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(approx (+ 1/2 ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (sin.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 #s(literal 2 binary64) R))
	42.4%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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(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 #s(literal 2 binary64) R))
	40.4%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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 #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)))))))))) (*.f64 #s(literal 2 binary64) R))
	41.8%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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 #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))))))))) (.f64 #s(literal 2 binary64) R))
	32.0%	(.f64 (atan2.f64 (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 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)))) (+.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)))))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #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)))))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.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))
	33.1%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2))))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2)))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) #s(approx ( 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2))))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2)))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R))
	38.0%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) #s(approx ( 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R))
▶	38.5%	(.f64 (atan2.f64 (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 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)))))) (sqrt.f64 (-.f64 (+.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)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.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))
	39.4%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(approx (- 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.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 #s(literal 2 binary64) R))
	13.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (exp.f64 (.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 (PI.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) (-.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) (exp.f64 (.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))))))) (.f64 #s(literal 2 binary64) R))
	19.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (exp.f64 (.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (exp.f64 (.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	49.8%	(.f64 (atan2.f64 (sqrt.f64 (+.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 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) #s(approx ( 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R))
▶	29.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R))
	29.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.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 2 binary64) R))
▶	31.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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 #s(literal -1 binary64) (.f64 lambda1 (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)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.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 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	44.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (cos.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)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (cos.f64 lambda1)))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	36.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) 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 #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)))))) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))) (.f64 #s(literal 2 binary64) R))
	36.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (sin.f64 (+.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 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 (+.f64 #s(literal 1/2 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 (sin.f64 (+.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 lambda1 lambda2))))))))) (.f64 #s(literal 2 binary64) R))
	45.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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 #s(literal 1/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)))))) #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 #s(literal 2 binary64) R))
	45.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.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)))))) (-.f64 #s(literal 1/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)))))) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.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))))))))) (*.f64 #s(literal 2 binary64) R))
	57.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 lambda1) (cos.f64 lambda2) (sin.f64 lambda1) (sin.f64 (neg.f64 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 (+.f64 #s(literal 1/2 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 phi1) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 lambda1) (cos.f64 lambda2) (sin.f64 lambda1) (sin.f64 (neg.f64 lambda2))))))))) (.f64 #s(literal 2 binary64) R))
	57.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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) (/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) (-.f64 #s(literal 1/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)))))) #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) (/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))) (*.f64 #s(literal 2 binary64) R))
	57.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))) (-.f64 #s(literal 1/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)))))) #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) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))))) (.f64 #s(literal 2 binary64) R))
	57.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 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 (+.f64 #s(literal 1/2 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 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))) (*.f64 #s(literal 2 binary64) R))
	57.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))))))) (-.f64 #s(literal 1/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)))))) #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) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))))))) (*.f64 #s(literal 2 binary64) R))
	27.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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) (sin.f64 (+.f64 (-.f64 lambda2 lambda1) (.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)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 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 phi1) (-.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 #s(literal 2 binary64) R))
	28.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.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)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 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 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64))))))))))) (.f64 #s(literal 2 binary64) R))
	25.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #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))))))))) (*.f64 #s(literal 2 binary64) R))
	25.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.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)))))))) (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)))))) #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))))))))) (*.f64 #s(literal 2 binary64) R))
	27.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 phi1 phi1) (.f64 phi2 phi2)) (+.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 (-.f64 (.f64 phi1 phi1) (.f64 phi2 phi2)) (+.f64 phi1 phi2))))))) #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))))))))) (*.f64 #s(literal 2 binary64) R))
	45.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/2 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 (-.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) R))
	45.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/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 (pow.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #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))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))) (*.f64 #s(literal 2 binary64) R))
	31.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/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 (.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))) #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))))))))) (*.f64 #s(literal 2 binary64) R))
	45.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/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 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) #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))))))))) (*.f64 #s(literal 2 binary64) R))
	45.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/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 binary64) (.f64 (neg.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 (* (- 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))))))))) (*.f64 #s(literal 2 binary64) R))
	45.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/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 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))) #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))))))))) (*.f64 #s(literal 2 binary64) R))
	37.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/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(approx (+ 1/2 ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.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 (- 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))))))))) (*.f64 #s(literal 2 binary64) R))
	26.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/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(approx (+ 1/2 ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.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 (- 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))))))))) (*.f64 #s(literal 2 binary64) R))
	32.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/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(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 (- 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))))))))) (*.f64 #s(literal 2 binary64) R))
	42.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/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(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 (- 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))))))))) (*.f64 #s(literal 2 binary64) R))
	45.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/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/2 binary64) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
	45.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/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 binary64) (/.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 (.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 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64))))) (*.f64 #s(literal 2 binary64) R))
	37.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/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 #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)))))))))) (*.f64 #s(literal 2 binary64) R))
	41.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/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 #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))))))))) (*.f64 #s(literal 2 binary64) R))
	35.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/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 #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))))))))) (.f64 #s(literal 2 binary64) R))
	39.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) 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 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) 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))))))))) (*.f64 #s(literal 2 binary64) R))
	23.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #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)))))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #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 ( (- 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))))))))) (*.f64 #s(literal 2 binary64) R))
	24.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #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)))))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #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 (* (- 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))))))))) (*.f64 #s(literal 2 binary64) R))
	35.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- phi1 phi2)))) (+.f64 (cos.f64 phi1) (.f64 phi2 (sin.f64 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (+.f64 (cos.f64 phi1) (.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))))))))) (*.f64 #s(literal 2 binary64) R))
	45.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- phi1 phi2)))) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- phi1 phi2)))) (cos.f64 (-.f64 phi1 phi2))))) #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))))))))) (*.f64 #s(literal 2 binary64) R))
	29.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.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))))))) (sqrt.f64 (-.f64 (+.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(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))))))))) (*.f64 #s(literal 2 binary64) R))
▶	41.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.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)))))) (sqrt.f64 (-.f64 (+.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(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))))))))) (*.f64 #s(literal 2 binary64) R))
	28.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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 (- 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))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 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 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))) (*.f64 #s(literal 2 binary64) R))
	37.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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 (- 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)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 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 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))) (*.f64 #s(literal 2 binary64) R))
	29.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 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)))))) #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))))))))) (*.f64 #s(literal 2 binary64) R))
	31.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))))) (-.f64 #s(literal 1/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)))))) #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) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))))))))) (*.f64 #s(literal 2 binary64) R))
	33.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))))))) (-.f64 #s(literal 1/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)))))) #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) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1))))))))))) (.f64 #s(literal 2 binary64) R))
	34.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 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 (+.f64 #s(literal 1/2 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 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))))))))) (*.f64 #s(literal 2 binary64) R))
	38.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) (-.f64 #s(literal 1/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)))))) #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) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))))))) (*.f64 #s(literal 2 binary64) R))
	33.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (cos.f64 phi1) #s(approx (- 1/2 ( 1/2 (cos (- 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)))))) (-.f64 #s(literal 1/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)))))) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (cos.f64 phi1) #s(approx (- 1/2 ( 1/2 (cos (- 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))))))))) (.f64 #s(literal 2 binary64) R))
	31.7%	(.f64 (atan2.f64 (sqrt.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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) (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))))))) (*.f64 #s(literal 2 binary64) R))
	32.6%	(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (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) (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))))))) (.f64 #s(literal 2 binary64) R))
	39.3%	(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (-.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) (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))))))) (*.f64 #s(literal 2 binary64) R))
	39.4%	(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 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) (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))))))) (*.f64 #s(literal 2 binary64) R))
	41.3%	(.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 phi2) (cos phi1)) (* (sin phi1) (sin (neg 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 phi2))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.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 #s(literal 2 binary64) R))
	50.3%	(.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 phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.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 #s(literal 2 binary64) R))
	56.0%	(.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 phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.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 #s(literal 2 binary64) R))
	37.4%	(.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 #s(literal 1/2 binary64) (+.f64 (.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)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.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))
	39.1%	(.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 #s(literal 1/2 binary64) (+.f64 (.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))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.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))
	40.0%	(.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 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 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))
	31.7%	(.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 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 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)))))) #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))))))))) (*.f64 #s(literal 2 binary64) R))
	41.3%	(.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 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (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)))))) (.f64 #s(literal 2 binary64) R))
	39.0%	(.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 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (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)))))) #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))))))))) (*.f64 #s(literal 2 binary64) R))
	34.1%	(.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 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.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)))))) #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))))))))) (*.f64 #s(literal 2 binary64) R))
	44.4%	(.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 #s(literal 1/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)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.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))
	38.3%	(.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 #s(literal 1/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)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 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 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))) (*.f64 #s(literal 2 binary64) R))
	45.6%	(.f64 (atan2.f64 (exp.f64 (.f64 (log.f64 (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.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))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 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 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))) (*.f64 #s(literal 2 binary64) R))
	43.2%	(.f64 (+.f64 R R) (atan2.f64 (sqrt.f64 (-.f64 (.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))))))
	45.6%	(.f64 #s(approx (atan2 (sqrt (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1))))))) (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #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))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))) (*.f64 #s(literal 2 binary64) R))
	69.6%	(.f64 #s(approx (atan2 (sqrt (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))))) (sqrt (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))))) (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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)))))))))) (*.f64 #s(literal 2 binary64) R))
	54.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	54.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
	56.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))) (.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) (-.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))))))))))
	56.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (.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 (.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) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.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))))))))))))
	69.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))) (+.f64 (.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))))) (+.f64 (.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))) (+.f64 (.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))))) (+.f64 (.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))))))))))
	92.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #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 (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #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))))))))))))
	98.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (neg.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)) (-.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 (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (neg.f64 (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64)))))) (-.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (neg.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)) (-.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))))))))))))
	72.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (-.f64 #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))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (-.f64 #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)))))))))
	98.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (+.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 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(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 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (+.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 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(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))))))))))))
	98.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 (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 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 (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)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 (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 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 (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))))))))))))
	60.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.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 (.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 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))))))
	98.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.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 (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.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 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.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 (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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(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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 #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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #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 #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))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #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 #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)))))))))))
	51.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (- ( (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (- ( (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))))
	44.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #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 (.f64 lambda1 (+.f64 (.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) (+.f64 (.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)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #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 (.f64 lambda1 (+.f64 (.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) (+.f64 (.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))))))))))))
	71.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #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))))))))))
	68.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #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 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #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.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #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 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #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)))))))))))
	59.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #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))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #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)))))))))))
	98.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #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 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #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))))))))))))
	22.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 phi2 #s(literal 3 binary64))) (+.f64 (.f64 phi1 phi1) (+.f64 (.f64 phi2 phi2) (.f64 phi1 phi2)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	79.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 (134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (-.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 (134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (-.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))))))))))))
	57.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
	59.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	79.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) (+.f64 (.f64 (sin.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 (PI.f64) #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 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) (+.f64 (.f64 (sin.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 (PI.f64) #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 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))))))))
	51.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (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 (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))))))))))
	47.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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.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)) (-.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 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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)))))))))
	59.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.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 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.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)))))))))
	79.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)) (.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 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.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 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) 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)) (.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 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.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 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))
	47.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 (+.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 (+.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	59.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.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))))))))))
	59.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #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) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.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 #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)))))))))))))
	20.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) lambda1) #s(literal 3 binary64)) (pow.f64 (.f64 lambda2 #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 lambda2 #s(literal 1/2 binary64))))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	36.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ 2 (- lambda1 lambda2)) (/.f64 (-.f64 (.f64 #s(literal -2 binary64) (/.f64 lambda1 lambda2)) #s(literal 2 binary64)) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	38.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ 2 (- lambda1 lambda2)) (/.f64 #s(literal 2 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	36.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ 2 (- lambda1 lambda2)) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) (/.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)))))))))
	37.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx ( 1/2 (- lambda1 lambda2)) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	34.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 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 (+ (* (cos phi1) (pow (sin (/ 1 (/ 2 (- lambda1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))))))
	35.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.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)))))))))
	21.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)) #s(approx (sin (/ (- lambda1 lambda2) 2)) #s(approx (+ (sin ( -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2))))) (+.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/16 binary64) (.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) #s(approx (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2))))) (+.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/16 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)) #s(approx (sin (/ (- lambda1 lambda2) 2)) #s(approx (+ (sin ( -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2))))) (+.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/16 binary64) (.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) #s(approx (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2))))) (+.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/16 binary64) (.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))))))))
	30.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 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (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)))))))))
	64.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 #s(approx (* (cos phi1) (cos phi2)) (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 #s(approx (* (cos phi1) (cos phi2)) (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))))))))))))
	50.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	41.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) (.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 (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- 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 #s(literal 1 binary64) (+.f64 (.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)))))))))
	76.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #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 (-.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 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #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))))))))))))
	76.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.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 phi2 phi1)) #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))))))))))))
▶	99.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #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 (+.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #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))))))))))))
	23.0%	(.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	40.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (.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))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.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)))))))))
	54.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fabs.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))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fabs.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)))))))))))))
	57.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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)))))))))
	57.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (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 (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (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)))))))))
	50.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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))))) (+.f64 (.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 (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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))))) (+.f64 (.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))))))))))
	36.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	42.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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.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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
	51.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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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))))))))))
	43.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 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
	30.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 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.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)))))))))
	37.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)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.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)))))))))
	34.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)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.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)))))))))
	39.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.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))))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(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 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))
	56.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.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))))))))))))
	57.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 1/2)) (cos (* lambda2 1/2))) (* (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 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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) (+.f64 (pow.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))))))))))))
	57.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 1/2)) (cos (* lambda2 1/2))) (* (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 (.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 (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))))))))))))
	42.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 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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) (+.f64 (.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)))))))))

Samples

891.0ms

14 848×

valid

Compiler

Compiled 43 696 to 18 576 computations (57.5% saved)

Precisions

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

ival-mult!: 227.0ms (75.6% of total)

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

adjust: 21.0ms (7.0% of total)

series467.0ms (0.9%)

Memory

29.4MiB live, 633.9MiB allocated; 94ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	2947	41482

Stop Event

1×	iter-limit

Counts

116 → 574

Calls

Call 1

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

Outputs
#s(approx R R)
#s(approx (* R (* 2 (atan2 (sqrt (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))))) (sqrt (- 1 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (-.f64 (+.f64 (.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 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.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 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64)))))))))))
#s(approx (* 2 R) (*.f64 #s(literal 2 binary64) R))
#s(approx (* (atan2 (sqrt (+ (* (- 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 (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))))) (* 2 R)) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/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))))) (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 lambda1 lambda1)
#s(approx (* lambda1 1/2) (*.f64 #s(literal 1/2 binary64) lambda1))
#s(approx (sin (* lambda1 1/2)) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))
#s(approx (sin (* lambda1 1/2)) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/3840 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/48 binary64))))))
#s(approx (sin (* lambda1 1/2)) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/3840 binary64) (.f64 #s(literal -1/645120 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1/48 binary64))))))
#s(approx (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (.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 (+.f64 (.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 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.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 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/48 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.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 (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 (* (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)) (+.f64 (.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)) (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.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 (- (* (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 (+.f64 (.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 (+.f64 (.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 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))))) (+.f64 (.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))))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))) (.f64 lambda1 (+.f64 (.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))))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2))))) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2))))) (.f64 lambda1 (+.f64 (.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 (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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))))) (+.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))))))) (.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))))) (+.f64 (.f64 lambda1 (+.f64 (.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) (+.f64 (.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))))) (+.f64 (.f64 lambda1 (+.f64 (.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 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.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 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))))
#s(approx (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64)))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))))
#s(approx (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 lambda1 (+.f64 (.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) (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64)))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))))
#s(approx (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 lambda1 (+.f64 (.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 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64)))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))))
#s(approx (sqrt (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))))
#s(approx (sqrt (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))) (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))))))))
#s(approx (sqrt (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))) (.f64 lambda1 (+.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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 (-.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)))) (+.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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.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)))) (+.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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))))))))))
#s(approx (sqrt (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))) (.f64 lambda1 (+.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))))) (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.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 (-.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)))) (+.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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))) #s(literal 2 binary64))))))))) (pow.f64 (sqrt.f64 (-.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)))) (+.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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.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)))) (+.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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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 (-.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)))) (+.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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))) #s(literal 2 binary64))))) (sqrt.f64 (-.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)))) (+.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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))))))))))))
#s(approx (- 1 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64)))))))
#s(approx (- 1 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (.f64 lambda1 (.f64 (cos.f64 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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64)))))))
#s(approx (- 1 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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)))))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64)))))))
#s(approx (- 1 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.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)))))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64)))))))
#s(approx (sqrt (- 1 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))))))
#s(approx (sqrt (- 1 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) 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 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (+.f64 (.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 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) 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 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- 1 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))))) (.f64 lambda1 (+.f64 (.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 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))))))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (+.f64 (.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 #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 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.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 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64)))))))))))))))
#s(approx (atan2 (sqrt (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))))) (sqrt (- 1 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (-.f64 (+.f64 (.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 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.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 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64)))))))))
#s(approx (* 2 (atan2 (sqrt (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))))) (sqrt (- 1 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (-.f64 (+.f64 (.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 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.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 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))))))))
#s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/6 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))) (sin.f64 (neg.f64 lambda2))))))
#s(approx (* 1/2 (cos (- lambda1 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2))))
#s(approx (* 1/2 (cos (- lambda1 lambda2))) (+.f64 (.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 (- lambda1 lambda2))) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2))) (.f64 lambda1 (+.f64 (.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 (- lambda1 lambda2))) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (+.f64 (.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 (- 1/2 (* 1/2 (cos (- 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 (- 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 (- 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 (- 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 (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2))))))
#s(approx (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))))
#s(approx (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)))))))
#s(approx (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/12 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))))))) (.f64 (cos.f64 phi1) (-.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))) (+.f64 (.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))) (+.f64 (.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 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (+.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.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 (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))) (- 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) (+.f64 (.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) (+.f64 (.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)))))))) (.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 (.f64 lambda1 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/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)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/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 (+.f64 (.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 (+.f64 (.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 (+.f64 (.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 (- 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) (+.f64 (.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) (+.f64 (.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) (+.f64 (.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 (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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (+.f64 (.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 (+.f64 (.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 (+.f64 (.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/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 (+.f64 (.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 (atan2 (sqrt (+ (* (- 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 (- (+ 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 (-.f64 (+.f64 #s(literal 1/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))))) (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 (- lambda1 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2))
#s(approx (* 1/2 (- lambda1 lambda2)) (+.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 #s(literal 1/2 binary64) lambda1)))
#s(approx (* lambda1 (sin (neg lambda2))) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2))))
#s(approx (* -1 (* lambda1 (sin (neg lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))
#s(approx (* 1/6 (* lambda1 (sin (neg lambda2)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))
#s(approx (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2))))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))))
#s(approx (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2))))) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/6 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))
#s(approx (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
#s(approx (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))
#s(approx (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))) (*.f64 #s(literal -1 binary64) (sin.f64 (neg.f64 lambda2))))
#s(approx (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))
#s(approx (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))) (-.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))) (sin.f64 (neg.f64 lambda2))))
#s(approx (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))
#s(approx (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))))))
#s(approx (sin (* lambda1 1/2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1)))
#s(approx (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) lambda1))))
#s(approx (cos (* lambda1 1/2)) (cos.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 (- (* (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 (* (* (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 (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.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 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))))
#s(approx (sqrt (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (+.f64 (.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 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))))
#s(approx (- 1 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.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 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64)))))))
#s(approx (sqrt (- 1 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.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 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))))))
#s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* 1/2 (cos (- lambda1 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos phi1) (- 1/2 (* 1/2 (cos (- 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))) (.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))) (- 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 (sqrt (+ (* (- 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 (- 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 (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 (- lambda1 lambda2)) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1 binary64) (sin.f64 (neg.f64 lambda2))) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1))))
#s(approx (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2))))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1)) (*.f64 #s(literal 1/6 binary64) (sin.f64 (neg.f64 lambda2))))))
#s(approx (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))
#s(approx (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1)) (*.f64 #s(literal 1/6 binary64) (sin.f64 (neg.f64 lambda2))))))
#s(approx (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 2 binary64)))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1)) (.f64 #s(literal 1/6 binary64) (sin.f64 (neg.f64 lambda2)))))))
#s(approx (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))) (.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (sin.f64 (neg.f64 lambda2)))))
#s(approx (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1)) (*.f64 #s(literal 1/6 binary64) (sin.f64 (neg.f64 lambda2))))))
#s(approx (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 2 binary64)))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1)) (.f64 #s(literal 1/6 binary64) (sin.f64 (neg.f64 lambda2)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1)) (+.f64 (*.f64 #s(literal 1/6 binary64) (sin.f64 (neg.f64 lambda2))) (/.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 3 binary64))))) (/.f64 (sin.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 2 binary64))))))
#s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (* 1/2 (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 (+.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)))))) (* (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/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 (- 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 (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 (atan2 (sqrt (+ (* (- 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 (- (+ 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 (-.f64 (+.f64 #s(literal 1/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))))) (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 (+ (* (- 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 (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))))) (* 2 R)) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/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))))) (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 (- 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 (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (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 (- 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 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 (sin.f64 (neg.f64 lambda2)) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1))))))
#s(approx (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2))))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1))))))
#s(approx (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2))) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1)) lambda1)) (.f64 #s(literal 1/6 binary64) (sin.f64 (neg.f64 lambda2))))))
#s(approx (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1))))))
#s(approx (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2)))) lambda1)) (.f64 #s(literal -1/6 binary64) (sin.f64 (neg.f64 lambda2)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1))) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2)))) lambda1)) (*.f64 #s(literal -1/6 binary64) (sin.f64 (neg.f64 lambda2)))))))
#s(approx lambda2 lambda2)
#s(approx (* lambda2 1/2) (*.f64 #s(literal 1/2 binary64) lambda2))
#s(approx (cos (* lambda2 1/2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))
#s(approx (cos (* lambda2 1/2)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/384 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/8 binary64)))))
#s(approx (cos (* lambda2 1/2)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/384 binary64) (*.f64 #s(literal -1/46080 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/8 binary64)))))
#s(approx (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (+.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)) (+.f64 (.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)) (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.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 (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 (* (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 (+.f64 (.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 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.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 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/48 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.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 (* 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 (+.f64 (.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 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))))) (+.f64 (.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))))) (+.f64 (.f64 lambda2 (+.f64 (.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))))) (+.f64 (.f64 lambda2 (+.f64 (.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 (+.f64 (.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 (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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))))) (+.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))))))) (.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))))) (+.f64 (.f64 lambda2 (+.f64 (.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) (+.f64 (.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))))) (+.f64 (.f64 lambda2 (+.f64 (.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 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.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 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))))
#s(approx (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64)))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))))
#s(approx (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 lambda2 (+.f64 (.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) (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64)))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))))
#s(approx (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 lambda2 (+.f64 (.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 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64)))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))))
#s(approx (sqrt (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))))
#s(approx (sqrt (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))) (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))))))))
#s(approx (sqrt (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))) (.f64 lambda2 (+.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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 (-.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))))))))))
#s(approx (sqrt (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))) (.f64 lambda2 (+.f64 (.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 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))))) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.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 (-.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))) #s(literal 2 binary64))))))))) (pow.f64 (sqrt.f64 (-.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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 (-.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))))))))))))
#s(approx (- 1 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64)))))))
#s(approx (- 1 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (.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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64)))))))
#s(approx (- 1 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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)))))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64)))))))
#s(approx (- 1 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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) (+.f64 (.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)))))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64)))))))
#s(approx (sqrt (- 1 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))))))
#s(approx (sqrt (- 1 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) 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 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- 1 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (+.f64 (.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 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) 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 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- 1 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))))) (.f64 lambda2 (+.f64 (.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 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))))))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (+.f64 (.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 #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 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.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 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))))) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (+.f64 (.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 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64)))))))))))))))
#s(approx (- lambda1 lambda2) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (sin.f64 lambda1))))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (* 1/2 (cos (- lambda1 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))
#s(approx (* 1/2 (cos (- lambda1 lambda2))) (+.f64 (.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 (- lambda1 lambda2))) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)) (.f64 lambda2 (+.f64 (.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 (- lambda1 lambda2))) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 lambda1)) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/4 binary64) (cos.f64 lambda1)) (.f64 #s(literal -1/12 binary64) (*.f64 lambda2 (sin.f64 lambda1)))))))))
#s(approx (- 1/2 (* 1/2 (cos (- lambda1 lambda2)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))
#s(approx (- 1/2 (* 1/2 (cos (- 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 (- 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 (- 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 (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1)))))
#s(approx (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))) (+.f64 (.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 (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))
#s(approx (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/12 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1)))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 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))) (+.f64 (.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))) (+.f64 (.f64 lambda2 (+.f64 (.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))) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.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 (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))) (- 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) (+.f64 (.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) (+.f64 (.f64 lambda2 (+.f64 (.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) (+.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(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)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/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 (+.f64 (.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 (+.f64 (.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 (+.f64 (.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 (- 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) (+.f64 (.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) (+.f64 (.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) (+.f64 (.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 (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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (+.f64 (.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 (+.f64 (.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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (+.f64 (.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 (+.f64 (.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 (cos (neg lambda2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))
#s(approx (cos (neg lambda2)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos (neg lambda2)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (sin (neg lambda2)) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1 binary64))))
#s(approx (sin (neg lambda2)) (.f64 lambda2 (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/6 binary64) (*.f64 #s(literal -1/120 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1 binary64))))
#s(approx (sin (neg lambda2)) (.f64 lambda2 (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/5040 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/120 binary64))))) #s(literal 1 binary64))))
#s(approx (* lambda1 (sin (neg lambda2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 lambda2)))
#s(approx (* lambda1 (sin (neg lambda2))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1 binary64) lambda1) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64)))))))
#s(approx (* lambda1 (sin (neg lambda2))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1 binary64) lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/120 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64)))) (.f64 #s(literal 1/6 binary64) lambda1))))))
#s(approx (* lambda1 (sin (neg lambda2))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1 binary64) lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/6 binary64) lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/120 binary64) lambda1) (.f64 #s(literal 1/5040 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64)))))))))))
#s(approx (* -1 (* lambda1 (sin (neg lambda2)))) (*.f64 lambda1 lambda2))
#s(approx (* -1 (* lambda1 (sin (neg lambda2)))) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/6 binary64) (*.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64)))))))
#s(approx (* -1 (* lambda1 (sin (neg lambda2)))) (.f64 lambda2 (+.f64 lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) lambda1) (.f64 #s(literal 1/120 binary64) (*.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64)))))))))
#s(approx (* -1 (* lambda1 (sin (neg lambda2)))) (.f64 lambda2 (+.f64 lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/6 binary64) lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64)))) (*.f64 #s(literal 1/120 binary64) lambda1))))))))
#s(approx (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))
#s(approx (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))
#s(approx (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
#s(approx (* -1/2 (cos (neg lambda2))) #s(literal -1/2 binary64))
#s(approx (* -1/2 (cos (neg lambda2))) (-.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* -1/2 (cos (neg lambda2))) (-.f64 (.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(literal 1/2 binary64)))
#s(approx (* -1/2 (cos (neg lambda2))) (-.f64 (.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(literal 1/2 binary64)))
#s(approx (* 1/6 (* lambda1 (sin (neg lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda2)))
#s(approx (* 1/6 (* lambda1 (sin (neg lambda2)))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/6 binary64) lambda1) (.f64 #s(literal 1/36 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64)))))))
#s(approx (* 1/6 (* lambda1 (sin (neg lambda2)))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/6 binary64) lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64)))) (.f64 #s(literal 1/36 binary64) lambda1))))))
#s(approx (* 1/6 (* lambda1 (sin (neg lambda2)))) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/6 binary64) lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/36 binary64) lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) lambda1) (.f64 #s(literal 1/30240 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64)))))))))))
#s(approx (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2))))) (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
#s(approx (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2))))) (-.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/6 binary64) lambda1) (*.f64 #s(literal 1/4 binary64) lambda2))) #s(literal 1/2 binary64)))
#s(approx (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2))))) (-.f64 (.f64 lambda2 (+.f64 (.f64 #s(literal -1/6 binary64) lambda1) (.f64 lambda2 (+.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/36 binary64) (*.f64 lambda1 lambda2)))))) #s(literal 1/2 binary64)))
#s(approx (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (*.f64 #s(literal -1/2 binary64) lambda1))
#s(approx (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (+.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2))))
#s(approx (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (+.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (*.f64 lambda1 lambda2))))))
#s(approx (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (+.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 lambda2 (+.f64 (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/36 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2)) (*.f64 #s(literal 1/4 binary64) lambda1)))))))
#s(approx (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))) (+.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))) (+.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (*.f64 lambda1 lambda2)))))))
#s(approx (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))) (+.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/4 binary64) lambda1) (.f64 lambda2 (-.f64 (*.f64 #s(literal 1/36 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))))
#s(approx (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))) (+.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) (.f64 lambda1 (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))))
#s(approx (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))) (+.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2)) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))))
#s(approx (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))) (+.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) (.f64 lambda2 (+.f64 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) (.f64 lambda2 (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) (.f64 lambda1 (.f64 lambda2 (-.f64 (*.f64 #s(literal 1/36 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) (.f64 lambda1 (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) (.f64 lambda2 (+.f64 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) (.f64 lambda2 (+.f64 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) (.f64 lambda2 (-.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) (.f64 lambda1 (.f64 lambda2 (-.f64 (*.f64 #s(literal 1/36 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/6 binary64))))) #s(literal 1/2 binary64))))))))
#s(approx (cos (* lambda2 1/2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) lambda2)))
#s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#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 (sin (neg lambda2)) (sin.f64 (neg.f64 lambda2)))
#s(approx (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))) (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/6 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))) (sin.f64 (neg.f64 lambda2)))))
#s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))
#s(approx (* 1/2 (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (- 1/2 (* 1/2 (cos (- 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 (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 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)))))) (* (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 (sqrt (+ (* (- 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 (- 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 (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 (atan2 (sqrt (+ (* (- 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 (- (+ 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 (-.f64 (+.f64 #s(literal 1/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))))) (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 (+ (* (- 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 (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))))) (* 2 R)) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/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))))) (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 (- 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 (cos (neg lambda2)) (cos.f64 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (sin (neg lambda2)) (sin.f64 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (* lambda1 (sin (neg lambda2))) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))
#s(approx (* -1 (* lambda1 (sin (neg lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2))))) (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (* -1/2 (cos (neg lambda2))) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2))))
#s(approx (* 1/6 (* lambda1 (sin (neg lambda2)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2))))) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))) (-.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))))) (sin.f64 (*.f64 #s(literal -1 binary64) lambda2))))
#s(approx (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))) (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))))) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2))))) (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (-.f64 (.f64 lambda1 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))))) (sin.f64 (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx phi1 phi1)
#s(approx (* 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 (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
#s(approx (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/48 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
#s(approx (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (.f64 phi1 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/48 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/3840 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))))
#s(approx (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (.f64 phi1 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/48 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.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 (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))
#s(approx (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/48 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.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))))))
#s(approx (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/48 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 #s(literal 1/1440 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))))))
#s(approx (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/48 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/80640 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 #s(literal 1/1440 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))))))
#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 (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
#s(approx (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
#s(approx (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 #s(literal 1/384 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))))
#s(approx (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/46080 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 #s(literal 1/384 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))))
#s(approx (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
#s(approx (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))) (.f64 phi1 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 #s(literal -1/48 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))))
#s(approx (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))) (.f64 phi1 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (+.f64 (.f64 #s(literal -1/48 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/3840 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (+.f64 (.f64 #s(literal 1/768 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 #s(literal 1/384 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))))))))
#s(approx (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))) (.f64 phi1 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (+.f64 (.f64 #s(literal -1/48 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/3840 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (+.f64 (.f64 #s(literal 1/768 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (+.f64 (.f64 #s(literal 1/384 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/18432 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (+.f64 (.f64 #s(literal -1/30720 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (+.f64 (.f64 #s(literal -1/92160 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 #s(literal -1/645120 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))))))))))))))
#s(approx (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2))))) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))
#s(approx (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2))))) (.f64 phi1 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 #s(literal -1/48 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))))))
#s(approx (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2))))) (.f64 phi1 (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/3840 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (+.f64 (.f64 #s(literal 1/768 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 #s(literal 1/384 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))) (.f64 #s(literal 2 binary64) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 #s(literal -1/48 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))))))
#s(approx (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2))))) (.f64 phi1 (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 2 binary64) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 #s(literal -1/48 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/18432 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (+.f64 (.f64 #s(literal -1/30720 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (+.f64 (.f64 #s(literal -1/92160 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 #s(literal -1/645120 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))))) (.f64 #s(literal 2 binary64) (+.f64 (.f64 #s(literal 1/3840 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (+.f64 (.f64 #s(literal 1/768 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 #s(literal 1/384 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))))))))))
#s(approx (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (.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))))))
#s(approx (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (.f64 phi1 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 phi1 (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))))))
#s(approx (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (.f64 phi1 (-.f64 (.f64 phi1 (+.f64 (.f64 #s(literal -2 binary64) (.f64 phi1 (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 #s(literal -1/48 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (.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))))))
#s(approx (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (.f64 phi1 (-.f64 (.f64 phi1 (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/48 binary64) (.f64 phi1 (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 #s(literal -1/48 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))))))
#s(approx (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))
#s(approx (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2) (+.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.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/48 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2) (+.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/1440 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)))) (.f64 #s(literal 1/48 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))))
#s(approx (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (+.f64 (.f64 phi1 (-.f64 (.f64 phi1 (+.f64 (.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 (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (+.f64 (.f64 phi1 (-.f64 (.f64 phi1 (+.f64 (.f64 #s(literal -2 binary64) (.f64 phi1 (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 #s(literal -1/48 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.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 (cos phi1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2)))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2)))))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal 1/24 binary64) (cos.f64 phi2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (- (* (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))))) (+.f64 (.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))))) (+.f64 (.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)) (+.f64 (.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))))) (+.f64 (.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)) (+.f64 (.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)) (+.f64 (.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)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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))))) (+.f64 (.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))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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)) (+.f64 (.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))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) 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)) (+.f64 (.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)) (+.f64 (.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 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2)))))) (+.f64 (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 phi1 (-.f64 (.f64 phi1 (+.f64 (.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 (.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))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 phi1 (-.f64 (.f64 phi1 (+.f64 (.f64 #s(literal -2 binary64) (.f64 phi1 (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 #s(literal -1/48 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.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 (.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))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (sqrt (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (sqrt (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 #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 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (sqrt (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 phi1 (+.f64 (.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 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (+.f64 (.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 (.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 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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(literal 2 binary64)))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (sqrt (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 phi1 (+.f64 (.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 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (+.f64 (.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 (+.f64 (.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 (.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 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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(literal 2 binary64))))))) (pow.f64 (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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(literal 2 binary64)))) (.f64 #s(literal 2 binary64) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 #s(literal -1/48 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 #s(literal 1/2 binary64) (/.f64 (-.f64 (+.f64 (.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 (.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 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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(literal 2 binary64))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (- 1 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (- 1 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2))))))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (- 1 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (+.f64 (.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 (.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)))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (- 1 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 2 binary64) (.f64 phi1 (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 #s(literal -1/48 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (.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 (.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)))))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (sqrt (- 1 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (sqrt (- 1 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 #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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (sqrt (- 1 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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(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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 #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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (sqrt (- 1 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 phi1 (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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(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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 #s(literal 1/2 binary64) (/.f64 (.f64 phi1 (-.f64 (.f64 #s(literal 2 binary64) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 #s(literal -1/48 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 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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(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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (-.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 #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 lambda1 lambda2)))))
#s(approx (* (cos phi1) (- 1/2 (* 1/2 (cos (- lambda1 lambda2))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (-.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)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/24 binary64) (-.f64 #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 lambda1 lambda2)))))
#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))) (+.f64 (.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))) (+.f64 (.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)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (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))) (+.f64 (.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)) (+.f64 (.f64 #s(literal -1/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)) (+.f64 (.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 (* 1/2 (cos phi1)) #s(literal 1/2 binary64))
#s(approx (* 1/2 (cos 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 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 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 (* 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))))) (+.f64 (.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))))) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))) (.f64 phi1 (+.f64 (.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))))) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))) (.f64 phi1 (+.f64 (.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/12 binary64) (*.f64 phi1 (sin.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 (* 1/2 (cos (* 2 (* 1/2 (- 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) (+.f64 (.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) (+.f64 (.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) (+.f64 (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (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 (sqrt (+ (* (- 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 (+.f64 (.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)))))) (+.f64 (.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 (+.f64 (.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 (+.f64 (.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/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (+.f64 (.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)))))) (+.f64 (.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 (- 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) (+.f64 (.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) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))) (.f64 phi1 (+.f64 (.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) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))) (.f64 phi1 (+.f64 (.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/12 binary64) (*.f64 phi1 (sin.f64 (neg.f64 phi2)))))))))))
#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) (+.f64 (.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) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))) (.f64 phi1 (+.f64 (.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) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))) (.f64 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2))) (.f64 phi1 (-.f64 (+.f64 (.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 (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 (+.f64 (.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))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (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 (+.f64 (.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 (+.f64 (.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))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (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))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (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 (- phi1 phi2) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (- phi1 phi2) (-.f64 phi1 phi2))
#s(approx (* 1/2 (- phi1 phi2)) (*.f64 #s(literal -1/2 binary64) phi2))
#s(approx (* 1/2 (- phi1 phi2)) (+.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 #s(literal 1/2 binary64) phi1)))
#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 (+.f64 (.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 (sin (* phi1 1/2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
#s(approx (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))
#s(approx (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (.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) phi1)) #s(literal 2 binary64))))
#s(approx (cos (* phi1 1/2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))
#s(approx (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
#s(approx (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
#s(approx (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))
#s(approx (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (-.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) phi1)) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))))
#s(approx (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2) (.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) phi2)) #s(literal 2 binary64))))
#s(approx (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (-.f64 (+.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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))))
#s(approx (cos phi1) (cos.f64 phi1))
#s(approx (* (cos phi1) (cos phi2)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
#s(approx (* 1/2 (cos 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 (-.f64 phi1 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 (+ 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 (- 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 (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 (-.f64 phi1 phi2)))
#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 (- 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 (* 1/2 (cos (* 2 (* 1/2 (- 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 (sqrt (+ (* (- 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 (- 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 (* 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 (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 (atan2 (sqrt (+ (* (- 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 (- (+ 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 (-.f64 (+.f64 #s(literal 1/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))))))) (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 (+ (* (- 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 (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))))) (* 2 R)) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/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))))))) (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 (- 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 (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))
#s(approx phi2 phi2)
#s(approx (* phi2 1/2) (*.f64 #s(literal 1/2 binary64) phi2))
#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 (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
#s(approx (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/384 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))))
#s(approx (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/8 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.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 (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))
#s(approx (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 phi2 #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))))
#s(approx (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (+.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.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/48 binary64) (.f64 (pow.f64 phi2 #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))))
#s(approx (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (+.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/1440 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 #s(literal 1/48 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))))
#s(approx (sin (* phi2 1/2)) (.f64 phi2 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (sin (* phi2 1/2)) (.f64 phi2 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/3840 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/48 binary64))))))
#s(approx (sin (* phi2 1/2)) (.f64 phi2 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/3840 binary64) (.f64 #s(literal -1/645120 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/48 binary64))))))
#s(approx (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))
#s(approx (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) (.f64 phi2 (+.f64 (.f64 #s(literal -1/48 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
#s(approx (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) (.f64 phi2 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/48 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/3840 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)))))))))
#s(approx (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) (.f64 phi2 (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/48 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/645120 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 #s(literal 1/3840 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) phi1))))))))))
#s(approx (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))
#s(approx (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))) (.f64 phi2 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (+.f64 (.f64 #s(literal -1/16 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal -1/48 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))))
#s(approx (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))) (.f64 phi2 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (+.f64 (.f64 #s(literal -1/16 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal -1/48 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (+.f64 (.f64 #s(literal 1/3840 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (.f64 #s(literal 1/768 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal 1/384 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1))))))))))))
#s(approx (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))) (.f64 phi2 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (+.f64 (.f64 #s(literal -1/16 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal -1/48 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (+.f64 (.f64 #s(literal 1/3840 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (.f64 #s(literal 1/768 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)))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (+.f64 (.f64 #s(literal -1/18432 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (.f64 #s(literal -1/30720 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (.f64 #s(literal -1/92160 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal -1/645120 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))))))))))
#s(approx (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2))))) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))
#s(approx (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2))))) (.f64 phi2 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (+.f64 (.f64 #s(literal -1/16 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal -1/48 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))
#s(approx (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2))))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (+.f64 (.f64 #s(literal -1/16 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal -1/48 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (.f64 #s(literal 2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (+.f64 (.f64 #s(literal 1/3840 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (.f64 #s(literal 1/768 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 (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2))))) (.f64 phi2 (+.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (+.f64 (.f64 #s(literal -1/16 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal -1/48 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (+.f64 (.f64 #s(literal 1/3840 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (.f64 #s(literal 1/768 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))))))) (.f64 #s(literal 2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (+.f64 (.f64 #s(literal -1/18432 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (.f64 #s(literal -1/30720 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (+.f64 (.f64 #s(literal -1/92160 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal -1/645120 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))))))))))))
#s(approx (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 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))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (+.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/4 binary64) (.f64 phi2 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 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 (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (+.f64 (.f64 phi2 (-.f64 (.f64 phi2 (+.f64 (.f64 #s(literal -2 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (+.f64 (.f64 #s(literal -1/16 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal -1/48 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 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 (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))
#s(approx (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/48 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.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))))))
#s(approx (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/48 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (.f64 #s(literal 1/1440 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
#s(approx (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/48 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/80640 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))) (.f64 #s(literal 1/1440 binary64) (pow.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))
#s(approx (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (+.f64 (.f64 phi2 (-.f64 (.f64 phi2 (+.f64 (.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 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (+.f64 (.f64 phi2 (-.f64 (.f64 phi2 (+.f64 (.f64 #s(literal -2 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (+.f64 (.f64 #s(literal -1/16 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal -1/48 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (+.f64 (.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 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1)))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1)))))))
#s(approx (* (cos phi1) (cos phi2)) (+.f64 (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal 1/24 binary64) (cos.f64 phi1))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (- (* (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))))) (+.f64 (.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))))) (+.f64 (.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)) (+.f64 (.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))))) (+.f64 (.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)) (+.f64 (.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)) (+.f64 (.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)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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))))) (+.f64 (.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))))) (+.f64 (.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)) (+.f64 (.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))))) (+.f64 (.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)) (+.f64 (.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)) (+.f64 (.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 (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (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 (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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))))) (+.f64 (.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 (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 phi2 (-.f64 (.f64 phi2 (+.f64 (.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 (.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 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 (.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 (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 phi2 (-.f64 (.f64 phi2 (+.f64 (.f64 #s(literal -2 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (+.f64 (.f64 #s(literal -1/16 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal -1/48 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (+.f64 (.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 (.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 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 (.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 (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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 (.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 (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.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 (.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 (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.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 (+.f64 (.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 (.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 (+.f64 (.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 (.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 (+.f64 (.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 (+.f64 (.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 (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.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 (+.f64 (.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 (.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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (+.f64 (.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 (+.f64 (.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 (.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 (+.f64 (.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 (+.f64 (.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 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (+.f64 (.f64 #s(literal -1/16 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal -1/48 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))))) (sqrt.f64 (+.f64 (.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 (+.f64 (.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 (.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 (+.f64 (.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 (+.f64 (.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 (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.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 (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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))))) (+.f64 (.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 (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (+.f64 (.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 (.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 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (+.f64 (.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 (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 2 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (+.f64 (.f64 #s(literal -1/16 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal -1/48 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))))) (+.f64 (.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 (.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 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)))))) (+.f64 (.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 (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (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) (+.f64 (.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 (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.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) (+.f64 (.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 (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.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) (+.f64 (.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) (+.f64 (.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 (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.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 (+.f64 (.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) (+.f64 (.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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.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) (+.f64 (.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 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (+.f64 (.f64 #s(literal -1/16 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 #s(literal -1/48 binary64) (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 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.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) (+.f64 (.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 (-.f64 #s(literal 1 binary64) (+.f64 (.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/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (+.f64 (.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))) (+.f64 (.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)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (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))) (+.f64 (.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)) (+.f64 (.f64 #s(literal -1/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)) (+.f64 (.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 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (+.f64 (.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))))) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 phi2 (+.f64 (.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))))) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 phi2 (+.f64 (.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/12 binary64) (*.f64 phi2 (sin.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 (* 1/2 (cos (* 2 (* 1/2 (- 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) (+.f64 (.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) (+.f64 (.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) (+.f64 (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (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 (sqrt (+ (* (- 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 (+.f64 (.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)))))) (+.f64 (.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 (+.f64 (.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 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (+.f64 (.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)))))) (+.f64 (.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)))))) (+.f64 (.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 (- 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) (+.f64 (.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) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 phi2 (+.f64 (.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) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 phi2 (+.f64 (.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/12 binary64) (*.f64 phi2 (sin.f64 phi1))))))))))
#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) (+.f64 (.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) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 phi2 (+.f64 (.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) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 phi2 (+.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 phi1)) (.f64 phi2 (-.f64 (+.f64 (.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 (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 (+.f64 (.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)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (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 (+.f64 (.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 (+.f64 (.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)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (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)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (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 (- phi1 phi2) (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))
#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 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1))))) (.f64 #s(literal -1 binary64) (sin.f64 phi1))))))
#s(approx (cos (* phi2 1/2)) (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 (* 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 (- 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 (* 1/2 (cos (* 2 (* 1/2 (- 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 (sqrt (+ (* (- 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 (- 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 (* 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 (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 (atan2 (sqrt (+ (* (- 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 (- (+ 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 (-.f64 (+.f64 #s(literal 1/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)))))) (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 (+ (* (- 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 (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))))) (* 2 R)) (.f64 #s(literal 2 binary64) (.f64 R (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/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)))))) (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 (- 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 (cos (* 2 (* 1/2 (- phi1 phi2)))) (cos.f64 (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))

Calls

15 calls:

Time	Variable	Point
116.0ms	phi2	-inf
18.0ms	lambda1	-inf
17.0ms	lambda2	inf
16.0ms	phi1	-inf
16.0ms	lambda1	inf

rewrite431.0ms (0.8%)

Memory

-13.2MiB live, 1 370.2MiB allocated; 155ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	131	3410
0	232	2658
1	986	2314
0	4168	2266

Stop Event

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

Counts

116 → 1 078

Calls

Call 1

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

Outputs
R
#s(literal 2 binary64)
phi2
#s(literal 1/2 binary64)
(*.f64 #s(literal 1/2 binary64) phi2)
(*.f64 phi2 #s(literal 1/2 binary64))
(sin.f64 (+.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (.f64 (fabs.f64 phi2) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (.f64 #s(literal 1/2 binary64) phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(cos.f64 (neg.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
(cos.f64 (neg.f64 (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64))))
(cos.f64 (fabs.f64 (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64))))
(cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))
(cos.f64 (*.f64 (fabs.f64 phi2) #s(literal 1/2 binary64)))
(cos.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(+.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
phi1
(*.f64 phi1 #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) phi1)
(sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))
(.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))
(.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (+.f64 (.f64 #s(literal 1/2 binary64) phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (+.f64 (.f64 #s(literal 1/2 binary64) phi2) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 #s(literal 1/2 binary64) phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 phi1 #s(literal 1/2 binary64)))) (cos.f64 (+.f64 (+.f64 (.f64 #s(literal 1/2 binary64) phi2) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 phi1 #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 (fabs.f64 phi2) #s(literal 1/2 binary64)))) (sin.f64 (+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 (fabs.f64 phi2) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (sin.f64 (+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64)))))
(.f64 (fabs.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (fabs.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))
(.f64 (neg.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (neg.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)))))
(.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 1 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 1 binary64)))
(.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 1 binary64)) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(.f64 (pow.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)))
(.f64 (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (*.f64 phi1 #s(literal 1/2 binary64))) #s(literal 2 binary64)))
(.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))
(exp.f64 (.f64 (log.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) #s(literal 2 binary64)))
(sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))
(sin.f64 (+.f64 (.f64 #s(literal -1/2 binary64) phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (.f64 (fabs.f64 phi1) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.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 phi1 #s(literal 1/2 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 1/2 binary64))
(.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) phi2)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)))
(/.f64 (neg.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) #s(literal -2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (+.f64 (+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) phi2) (+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (.f64 #s(literal 1/2 binary64) phi2) (+.f64 (.f64 phi1 #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 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 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 (+.f64 (.f64 #s(literal 1/2 binary64) phi2) (.f64 (fabs.f64 phi1) #s(literal 1/2 binary64))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))))
(+.f64 (/.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) #s(literal 2 binary64)) (/.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))) #s(literal 2 binary64)))
(.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (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) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))))
(.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (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 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (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 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (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 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))
(.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))))
(.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (+.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))))
(.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (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) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))
(.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (+.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))
(.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (+.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))
(.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (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 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (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 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (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 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (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 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (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 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (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 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (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 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (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 3 binary64))) (+.f64 (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (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 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (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 (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (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 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (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 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (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 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (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 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (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 (neg.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (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 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (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 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))))
(-.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (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 (neg.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))
(-.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (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))) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(-.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (neg.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (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 (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (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 1 binary64)) (.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (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 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))) (.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))))
(+.f64 (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (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 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (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 #s(literal 1 binary64) (/.f64 (.f64 #s(literal -2 binary64) (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))) (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))
(/.f64 (-.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))) (.f64 (.f64 #s(literal -2 binary64) (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (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 #s(literal -2 binary64) (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (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 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal -2 binary64) (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (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 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -2 binary64) (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 #s(literal -2 binary64) (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (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 #s(literal -2 binary64) (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (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 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal -2 binary64) (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (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 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))) (.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))
(/.f64 (-.f64 (pow.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 3 binary64))) (+.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))) (+.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))))))
(neg.f64 (-.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))))
(-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (neg.f64 (.f64 #s(literal -2 binary64) (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (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 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 #s(literal -2 binary64) (.f64 (.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) (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) phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(.f64 (.f64 (sin.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) phi1)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1))))
(.f64 (fabs.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (fabs.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(.f64 (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (neg.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))
(.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1 binary64)))
(.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 1 binary64)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(.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) phi2)) #s(literal 2 binary64)))
(.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)) #s(literal 2 binary64)))
(.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))))
(pow.f64 (.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 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1))))) #s(literal 4 binary64))
(exp.f64 (.f64 (log.f64 (.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 #s(literal 1 binary64) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))) (pow.f64 (.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 #s(literal 1 binary64) (/.f64 (neg.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))
(.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))) (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (/.f64 #s(literal 2 binary64) #s(literal 2 binary64))))
(.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 1 binary64)) (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 1 binary64)))
(.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 1 binary64)) (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))
(.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (pow.f64 (.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 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))
(/.f64 (-.f64 (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (.f64 (neg.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))) (neg.f64 (pow.f64 (.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 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (neg.f64 (pow.f64 (.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 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #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) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))
(/.f64 (+.f64 (pow.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 3 binary64))) (+.f64 (.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (pow.f64 (.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 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))))
(/.f64 (-.f64 (pow.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 3 binary64)) (pow.f64 (neg.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (+.f64 (.f64 (neg.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))) (neg.f64 (pow.f64 (.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 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (neg.f64 (pow.f64 (.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 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 3 binary64))) (+.f64 (.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))) (+.f64 (.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #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) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))))
(/.f64 (-.f64 (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (pow.f64 (.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 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.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 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #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) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (pow.f64 (.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 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (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)))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 phi2 phi1)))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi1)))
(neg.f64 (-.f64 (neg.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))
(neg.f64 (-.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))))
(-.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))))
(-.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (neg.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64))))
(-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(exp.f64 (.f64 (log.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1))))) #s(literal 2 binary64)))
(+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (neg.f64 (neg.f64 (pow.f64 (.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 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))
(+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (neg.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))))
(sin.f64 (+.f64 (neg.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 phi1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 phi1 (*.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))))
(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 (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 2 binary64)))
(+.f64 (/.f64 (cos.f64 (+.f64 phi2 phi1)) #s(literal 2 binary64)) (/.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 2 binary64)))
lambda1
(*.f64 lambda1 #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) lambda1)
(sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64)))
lambda2
(*.f64 lambda2 #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) lambda2)
(sin.f64 (+.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (.f64 (fabs.f64 lambda2) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.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 #s(literal -1/2 binary64) lambda2))
(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 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 (PI.f64) #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 (+.f64 (.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 (+.f64 (.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)) (+.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (+.f64 (.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 (+.f64 (.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 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (.f64 (fabs.f64 lambda1) #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.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 (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)) (+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 (.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 (+.f64 (.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 (+.f64 (.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 (+.f64 (.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 (+.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (*.f64 lambda1 #s(literal 1/2 binary64))))) #s(literal 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))) (+.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 (.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))) (+.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 (.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)))
(-.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 (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 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.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) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.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) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (+.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) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 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))))))
(+.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))))) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))
(+.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 (-.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 (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 (-.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 (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 (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)))))
(134-z0z1z2z3z4 (.f64 (.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))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.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))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (.f64 (.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))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(neg.f64 (.f64 (-.f64 (.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 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 (-.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 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 (-.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))))))
(+.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 #s(literal -1 binary64) (-.f64 lambda1 lambda2))))))
(+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #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 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 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/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) (.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 (.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 (+.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (.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 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 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 (.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))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))
(/.f64 (-.f64 (.f64 (.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 (.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 (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (-.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))))
(/.f64 (-.f64 (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #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) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)) (.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 (pow.f64 (.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 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 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (pow.f64 (.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 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 (-.f64 (.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))) (.f64 (.f64 (-.f64 (.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 (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 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 (.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 (.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)))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (.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 (.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 (.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))) (.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))))))
(/.f64 (+.f64 (pow.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) #s(literal 3 binary64)) (pow.f64 (+.f64 (pow.f64 (.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 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))))) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))))) (-.f64 (.f64 (+.f64 (pow.f64 (.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 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 (pow.f64 (.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 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 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (pow.f64 (.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 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 (-.f64 (pow.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 (.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))) (+.f64 (.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))) (+.f64 (.f64 (.f64 (-.f64 (.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 (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 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 (.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 (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))) (.f64 (.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 (.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 (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) (.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 (+.f64 (pow.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (.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)))) #s(literal 3 binary64))) (+.f64 (.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))) (-.f64 (.f64 (.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 (.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 (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) (.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 (.f64 (-.f64 (.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))) (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))))
(-.f64 (.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 (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))))
(-.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) (.f64 (-.f64 (.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 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (neg.f64 (+.f64 (pow.f64 (.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 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 (.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)))) (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))
(+.f64 (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)) (.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 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (pow.f64 (.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 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 (pow.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))))))
(sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))))
(fabs.f64 (neg.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))))))
(fabs.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))))
(exp.f64 (.f64 (log.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
#s(literal 1 binary64)
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (-.f64 (.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))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))) #s(literal 1 binary64))) #s(literal 1 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.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 binary64) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))))) (-.f64 #s(literal 1 binary64) (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))) #s(literal 1 binary64))) #s(literal 1 binary64))
(/.f64 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (-.f64 (.f64 (-.f64 (.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))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))) (-.f64 (.f64 (-.f64 (.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))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))))) (-.f64 #s(literal 1 binary64) (-.f64 (.f64 (-.f64 (.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))) (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (.f64 (.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 (.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 (-.f64 #s(literal 1 binary64) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))) (.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 (+.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (-.f64 (.f64 (-.f64 (.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))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (-.f64 (.f64 (-.f64 (.f64 (-.f64 (.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))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))) (-.f64 (.f64 (-.f64 (.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))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (.f64 #s(literal 1 binary64) (-.f64 (.f64 (-.f64 (.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))) (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))) #s(literal 3 binary64)) (pow.f64 (.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)))) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (+.f64 (.f64 (.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 (.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 (-.f64 #s(literal 1 binary64) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))) (.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 (-.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))))) (+.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 #s(literal 1 binary64) #s(literal 3 binary64)) (pow.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1 binary64) #s(literal 1 binary64)) (+.f64 (.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))))))
(neg.f64 (+.f64 #s(literal -1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))))
(neg.f64 (-.f64 (.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 binary64) (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))))
(neg.f64 (-.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))) #s(literal 1 binary64)))
(-.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))) (.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 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))))
(+.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))) (.f64 (-.f64 (.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) (-.f64 (.f64 (-.f64 (.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))) (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))))
(.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))))))
(fabs.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))))))
(exp.f64 (.f64 (log.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))))) #s(literal 1/2 binary64)))
(atan2.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))))) (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))))))) (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))))))
(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))))))
(/.f64 (-.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))))) (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))))))) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))))) (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))))))) (-.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))))) (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))))))))
(/.f64 (+.f64 (pow.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))))) #s(literal 3 binary64)) (pow.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))))) #s(literal 3 binary64))) (+.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))))) (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))))))) (-.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))))) (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))))))) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))))) (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))))))))))
(-.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))))) (neg.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))))) #s(literal 1 binary64)) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))))) #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))))))) (.f64 #s(literal 1 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))))))))
(+.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))))) (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))))))
(.f64 (+.f64 R R) (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))))) #s(literal 2 binary64)) R)
(.f64 R (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))))) #s(literal 2 binary64)))
(+.f64 (.f64 R (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))))))) (.f64 R (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))))) R) (.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))))) R))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 lambda2) lambda1)) lambda1)
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1)
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 (neg.f64 lambda2) (neg.f64 lambda2))) (-.f64 lambda1 (neg.f64 lambda2)))
(/.f64 (+.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (neg.f64 lambda2) #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (-.f64 (.f64 (neg.f64 lambda2) (neg.f64 lambda2)) (*.f64 lambda1 (neg.f64 lambda2)))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))
(/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 lambda2 lambda2) (*.f64 lambda1 lambda2))))
(neg.f64 (-.f64 lambda2 lambda1))
(-.f64 lambda1 (neg.f64 (neg.f64 lambda2)))
(-.f64 lambda1 lambda2)
(+.f64 lambda1 (neg.f64 lambda2))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
(/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(sin.f64 (+.f64 (-.f64 lambda2 lambda1) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 (-.f64 lambda2 lambda1)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (-.f64 lambda1 lambda2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2)))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (neg.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2))))
(cos.f64 (neg.f64 (fabs.f64 (-.f64 lambda2 lambda1))))
(cos.f64 (fabs.f64 (fabs.f64 (-.f64 lambda2 lambda1))))
(cos.f64 (-.f64 lambda2 lambda1))
(cos.f64 (fabs.f64 (-.f64 lambda2 lambda1)))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 lambda1) (cos.f64 lambda2) (neg.f64 (sin.f64 lambda1)) (sin.f64 lambda2))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 lambda1) (cos.f64 lambda2) (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2)))
(+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 1/2 binary64)) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) #s(literal 1/2 binary64))) #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 (-.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))) (+.f64 (.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 (.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))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))))
(neg.f64 (-.f64 (*.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #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)))
(+.f64 #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))) (cos.f64 phi1))
(.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))
(neg.f64 (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (cos.f64 phi1)))
(neg.f64 (.f64 (cos.f64 phi1) (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))
(+.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi1) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1)))))
(+.f64 (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)) (.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda2 lambda1))) (cos.f64 phi1)))
#s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))
(*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (cos.f64 phi1))
#s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #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 (neg.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) (neg.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (neg.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) (neg.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))) (.f64 #s(literal 1/2 binary64) (neg.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))) (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)))
(/.f64 (-.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))))
(neg.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))
(-.f64 #s(literal 1/2 binary64) (neg.f64 (neg.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))
(-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))
(+.f64 #s(literal 1/2 binary64) (neg.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (-.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(literal -1/2 binary64)))) (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(literal -1/2 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))
(/.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))) (.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))) (-.f64 (-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))
(/.f64 (-.f64 (.f64 (-.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(literal -1/2 binary64)) (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(literal -1/2 binary64))) (.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))) (+.f64 (-.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(literal -1/2 binary64)) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))) (+.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))) (-.f64 (.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(literal -1/2 binary64)) #s(literal 3 binary64)) (pow.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(literal -1/2 binary64)) (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(literal -1/2 binary64))) (+.f64 (.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) (.f64 (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(literal -1/2 binary64)) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))))
(/.f64 (-.f64 (pow.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (+.f64 (.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) (.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (.f64 (-.f64 #s(literal 1/2 binary64) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (-.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (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) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))) (.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))))
(neg.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (-.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(literal -1/2 binary64))))
(neg.f64 (-.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))
(-.f64 (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(literal -1/2 binary64)) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))
(-.f64 (-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) (neg.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))
(-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))
(+.f64 (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(literal -1/2 binary64)) (neg.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))
(+.f64 (-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))
(+.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))
(.f64 (pow.f64 (-.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (-.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))))
(sqrt.f64 (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))))
(fabs.f64 (sqrt.f64 (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))))
(exp.f64 (.f64 (log.f64 (-.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #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) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #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 (neg.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) (neg.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))
(/.f64 (+.f64 (pow.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64))) (+.f64 (.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (neg.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (.f64 (neg.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) (neg.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))) (.f64 #s(literal 1/2 binary64) (neg.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))))
(neg.f64 (-.f64 (neg.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)))
(-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64))
(-.f64 #s(literal 1/2 binary64) (neg.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))
(+.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (neg.f64 (neg.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))
(+.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (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))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)))) (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)))) (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)))
(/.f64 (-.f64 (.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) (.f64 (neg.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) (-.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (neg.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) (-.f64 #s(literal 1/2 binary64) (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 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))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) (-.f64 (.f64 (neg.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))) (.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (neg.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))))))
(/.f64 (-.f64 (.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) (.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))) (+.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) #s(literal 3 binary64)) (pow.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) (+.f64 (.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #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))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64))))
(-.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (neg.f64 (neg.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))))
(-.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))
(-.f64 #s(literal 1/2 binary64) (neg.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))))
(+.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (neg.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))
(+.f64 #s(literal 1/2 binary64) (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))
(.f64 (pow.f64 (-.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (-.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (-.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))) (sqrt.f64 (-.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))))
(sqrt.f64 (-.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))))
(fabs.f64 (sqrt.f64 (-.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))))
(exp.f64 (.f64 (log.f64 (-.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))) #s(literal 1/2 binary64)))
(atan2.f64 (sqrt.f64 (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 R R)) R)
(*.f64 #s(literal 2 binary64) R)
(*.f64 R #s(literal 2 binary64))
(/.f64 (-.f64 (.f64 R R) (.f64 R R)) (-.f64 R R))
(/.f64 (+.f64 (pow.f64 R #s(literal 3 binary64)) (pow.f64 R #s(literal 3 binary64))) (+.f64 (.f64 R R) (-.f64 (.f64 R R) (*.f64 R R))))
(-.f64 R (neg.f64 R))
(+.f64 (.f64 R #s(literal 1 binary64)) (.f64 R #s(literal 1 binary64)))
(+.f64 (.f64 #s(literal 1 binary64) R) (.f64 #s(literal 1 binary64) R))
(+.f64 R R)
(.f64 (.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(.f64 (+.f64 R R) (atan2.f64 (sqrt.f64 (-.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))))
(.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) (+.f64 R R))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) R) (.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) R))
(+.f64 (.f64 R (atan2.f64 (sqrt.f64 (-.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))))) (.f64 R (atan2.f64 (sqrt.f64 (-.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 lambda1 #s(literal 1/2 binary64)))
(*.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))
(/.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))) (+.f64 (.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda1 #s(literal 1/2 binary64))) (+.f64 (.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))))))
(neg.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda2 lambda1)))
(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))))
(-.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64)))
(+.f64 (.f64 lambda1 #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) lambda2))
(.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 (-.f64 lambda1 lambda2) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))
(*.f64 #s(literal 1/2 binary64) (+.f64 (-.f64 lambda1 lambda2) (-.f64 lambda1 lambda2)))
(.f64 #s(literal 2 binary64) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 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))) (+.f64 (.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))))))
(134-z0z1z2z3z4 #s(literal 2 binary64) lambda1 #s(literal 1/2 binary64) lambda2 #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 2 binary64) lambda1 #s(literal 1/2 binary64) #s(literal 1/2 binary64) lambda2)
(134-z0z1z2z3z4 #s(literal 2 binary64) #s(literal 1/2 binary64) lambda1 lambda2 #s(literal 1/2 binary64))
(134-z0z1z2z3z4 #s(literal 2 binary64) #s(literal 1/2 binary64) lambda1 #s(literal 1/2 binary64) lambda2)
(neg.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2)))
(-.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 (.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 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 (-.f64 lambda1 lambda2) #s(literal 1/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 (-.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 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 (.f64 (+.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 lambda1 lambda2))) #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 #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 (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 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #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 lambda1 lambda2))) #s(literal 1/2 binary64))) #s(literal 3 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 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #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 #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 (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 (-.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 lambda1 lambda2))) #s(literal 1/2 binary64)))))
(sin.f64 (+.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2)) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)) (.f64 (PI.f64) #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 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))
(cos.f64 (neg.f64 (fabs.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2)))))
(cos.f64 (fabs.f64 (fabs.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2)))))
(cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2)))
(cos.f64 (fabs.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))))
(cos.f64 (*.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64))) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) (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 lambda1 lambda2))) #s(literal 1/2 binary64))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) #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) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (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)))) (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)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (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)))) (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)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (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)))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (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)))) (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)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (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)))) (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)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (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)))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (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)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.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 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (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 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))
(.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 (-.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 (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 #s(literal -1 binary64) (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))))))
(/.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 lambda1 lambda2)))) #s(literal 3 binary64))) (+.f64 (.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 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))))))))
(/.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))) (+.f64 (.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))))))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (+.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))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (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))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (*.f64 lambda1 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (neg.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda2)))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/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)))) #s(literal 1/2 binary64) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/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)))) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/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)))) #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(neg.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(-.f64 #s(literal 1/2 binary64) (neg.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))))))
(-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))
(+.f64 (.f64 (sin.f64 (.f64 (-.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 (-.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))))))
(+.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 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2)))))
(*.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 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 (-.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 (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 (-.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 (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 (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)))))
(134-z0z1z2z3z4 (.f64 (.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))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.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))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (.f64 (.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))) (sin.f64 (.f64 #s(literal 1/2 binary64) (+.f64 lambda1 lambda2)))) #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (neg.f64 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)))) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) lambda1)))
(134-z0z1z2z3z4 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1)) (sin.f64 (*.f64 lambda2 #s(literal 1/2 binary64))))
(neg.f64 (.f64 (-.f64 (.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 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 (-.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 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 (-.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))))))
(+.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 #s(literal -1 binary64) (-.f64 lambda1 lambda2))))))
(+.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda1 #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 (neg.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (sin.f64 (.f64 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/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.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) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (-.f64 (.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)))) #s(literal -1/2 binary64)))) (-.f64 (.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)))) #s(literal -1/2 binary64)))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #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 (cos.f64 (.f64 #s(literal -1 binary64) (-.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 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1/2 binary64) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) (.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 (.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 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))) (.f64 (.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 (.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 (-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) (.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 (-.f64 (.f64 (-.f64 (.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)))) #s(literal -1/2 binary64)) (-.f64 (.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)))) #s(literal -1/2 binary64))) (.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))) (+.f64 (-.f64 (.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)))) #s(literal -1/2 binary64)) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (.f64 (.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 (.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 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #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 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))
(/.f64 (+.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #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 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))) (-.f64 (.f64 (.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 (.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 (-.f64 #s(literal 1/2 binary64) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) (.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 (-.f64 (pow.f64 (-.f64 (.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)))) #s(literal -1/2 binary64)) #s(literal 3 binary64)) (pow.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 (.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)))) #s(literal -1/2 binary64)) (-.f64 (.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)))) #s(literal -1/2 binary64))) (+.f64 (.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) (.f64 (-.f64 (.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)))) #s(literal -1/2 binary64)) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))))
(/.f64 (-.f64 (pow.f64 (.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)))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (.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 (.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 (.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #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 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #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 (cos.f64 (.f64 #s(literal -1 binary64) (-.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 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))) (.f64 (-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (-.f64 (.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) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.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)))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 (.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 (.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 (.f64 (-.f64 #s(literal 1/2 binary64) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))) (.f64 (.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) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))))))
(neg.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (-.f64 (.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)))) #s(literal -1/2 binary64))))
(neg.f64 (-.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #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 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))
(-.f64 (-.f64 (.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)))) #s(literal -1/2 binary64)) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))
(-.f64 (.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(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))
(-.f64 (-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) (.f64 (-.f64 (.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 (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)))) #s(literal -1/2 binary64)) (neg.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))
(+.f64 (.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) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))
(+.f64 (-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) (.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 (pow.f64 (-.f64 (.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(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (.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(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (-.f64 (.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(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (-.f64 (.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(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.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(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))))
(sqrt.f64 (-.f64 (.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(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 (.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(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))))))
(fabs.f64 (sqrt.f64 (-.f64 (.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(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))))
(exp.f64 (.f64 (log.f64 (-.f64 (.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(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 (.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(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)))) (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.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))))) #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 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)))) (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)))
(/.f64 (-.f64 (.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) (.f64 (.f64 (-.f64 (.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 (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(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #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)) #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 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.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(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.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 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.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 (+.f64 (pow.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 (.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))) (+.f64 (.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) (-.f64 (.f64 (.f64 (-.f64 (.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 (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(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #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)) #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 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.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))))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.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(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.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 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.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 (-.f64 (.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #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 (cos.f64 (.f64 #s(literal -1 binary64) (-.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 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))) (+.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #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 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #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 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64))) (+.f64 (.f64 (.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 (.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 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #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 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))))
(neg.f64 (-.f64 (.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(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (*.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64))))
(-.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #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 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))
(-.f64 #s(literal 1/2 binary64) (neg.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.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 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #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)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 #s(literal 1/2 binary64) (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) (.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 (pow.f64 (-.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #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 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #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 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (-.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #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 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (-.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #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 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #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 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))))
(sqrt.f64 (-.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #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 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #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 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))))
(fabs.f64 (sqrt.f64 (-.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #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 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))))
(exp.f64 (.f64 (log.f64 (-.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #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 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))) #s(literal 1/2 binary64)))
(atan2.f64 (sqrt.f64 (-.f64 (.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(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #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 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (-.f64 (.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(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #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 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 (-.f64 (.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(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #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 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))) (+.f64 R R))
(.f64 (+.f64 R R) (atan2.f64 (sqrt.f64 (-.f64 (.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(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #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 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (-.f64 (.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(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #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 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))) R) (.f64 (atan2.f64 (sqrt.f64 (-.f64 (.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(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #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 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))) R))
(+.f64 (.f64 R (atan2.f64 (sqrt.f64 (-.f64 (.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(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #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 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))))) (.f64 R (atan2.f64 (sqrt.f64 (-.f64 (.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(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #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 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))))))
(neg.f64 lambda2)
(sin.f64 (+.f64 (neg.f64 (neg.f64 lambda2)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 lambda2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 lambda2 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (neg.f64 lambda2) (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(cos.f64 (neg.f64 (neg.f64 (neg.f64 lambda2))))
(cos.f64 (neg.f64 (fabs.f64 lambda2)))
(cos.f64 (fabs.f64 (fabs.f64 lambda2)))
(cos.f64 (neg.f64 (neg.f64 lambda2)))
(cos.f64 (fabs.f64 lambda2))
(cos.f64 (neg.f64 lambda2))
(cos.f64 lambda2)
(+.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (.f64 (cos.f64 lambda2) (sin.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)))))
#s(literal -1 binary64)
(neg.f64 (sin.f64 lambda2))
(sin.f64 (+.f64 lambda2 (PI.f64)))
(sin.f64 (neg.f64 lambda2))
(cos.f64 (+.f64 lambda2 (*.f64 (PI.f64) #s(literal 1/2 binary64))))
(*.f64 (neg.f64 (sin.f64 lambda2)) lambda1)
(*.f64 lambda1 (neg.f64 (sin.f64 lambda2)))
(neg.f64 (*.f64 (sin.f64 lambda2) lambda1))
(neg.f64 (*.f64 lambda1 (sin.f64 lambda2)))
(.f64 (.f64 #s(literal -1 binary64) lambda1) (neg.f64 (sin.f64 lambda2)))
(*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)))
(*.f64 (neg.f64 (neg.f64 (sin.f64 lambda2))) lambda1)
(.f64 (neg.f64 (.f64 (sin.f64 lambda2) lambda1)) #s(literal -1 binary64))
(*.f64 (neg.f64 (sin.f64 lambda2)) (neg.f64 lambda1))
(.f64 #s(literal -1 binary64) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))
(*.f64 lambda1 (neg.f64 (neg.f64 (sin.f64 lambda2))))
(neg.f64 (.f64 (.f64 #s(literal -1 binary64) lambda1) (sin.f64 lambda2)))
(neg.f64 (neg.f64 (*.f64 (sin.f64 lambda2) lambda1)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 lambda2) (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))))) (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)))) (cos.f64 lambda2))) (cos.f64 lambda2))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2))) (cos.f64 lambda2))
(/.f64 (-.f64 (.f64 (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)))) (.f64 (cos.f64 lambda2) (cos.f64 lambda2))) (-.f64 (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))
(/.f64 (-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda2)) (.f64 (neg.f64 (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)))) (neg.f64 (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)))))) (+.f64 (cos.f64 lambda2) (neg.f64 (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))))))
(/.f64 (+.f64 (pow.f64 (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda2)) (.f64 (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (pow.f64 (neg.f64 (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)))) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda2)) (+.f64 (.f64 (neg.f64 (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)))) (neg.f64 (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))))) (.f64 (cos.f64 lambda2) (neg.f64 (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))))))))
(/.f64 (-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda2)) (.f64 (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))))) (-.f64 (cos.f64 lambda2) (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)))))
(/.f64 (+.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda2)) (-.f64 (.f64 (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)))) (.f64 (cos.f64 lambda2) (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)))))))
(neg.f64 (-.f64 (neg.f64 (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)))) (cos.f64 lambda2)))
(-.f64 (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (neg.f64 (cos.f64 lambda2)))
(-.f64 (cos.f64 lambda2) (neg.f64 (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)))))
(-.f64 (cos.f64 lambda2) (neg.f64 (*.f64 (sin.f64 lambda2) lambda1)))
(+.f64 (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2))
(+.f64 (cos.f64 lambda2) (neg.f64 (neg.f64 (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))))))
(+.f64 (cos.f64 lambda2) (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))))
#s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (*.f64 (sin.f64 lambda2) lambda1))))
(.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (*.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (*.f64 (sin.f64 lambda2) lambda1)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (*.f64 (sin.f64 lambda2) lambda1))))) #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)))) (-.f64 (cos.f64 lambda2) (neg.f64 (*.f64 (sin.f64 lambda2) 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(literal -1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1))))) (.f64 #s(literal -1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1))))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (*.f64 (sin.f64 lambda2) lambda1)))))))
(/.f64 (+.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1))))) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1))))) (.f64 #s(literal -1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))))) (.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (*.f64 (sin.f64 lambda2) lambda1)))))))))
(/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64)) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (*.f64 (sin.f64 lambda2) 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)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (.f64 (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64)) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (*.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))))))
(neg.f64 (-.f64 (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (*.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(-.f64 #s(literal 1/2 binary64) (neg.f64 (.f64 #s(literal -1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (*.f64 (sin.f64 lambda2) lambda1)))))))
(-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (*.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64)))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (*.f64 (sin.f64 lambda2) lambda1))))))
(.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (*.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (*.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))))
(neg.f64 (.f64 (-.f64 (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 #s(literal -1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (*.f64 (sin.f64 lambda2) lambda1)))))))
(+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 #s(literal -1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(*.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 phi2) phi1)) phi1)
(*.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) phi1)
(/.f64 (-.f64 (.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))) (+.f64 (.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))) (+.f64 (.f64 phi1 phi1) (+.f64 (.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 (-.f64 phi1 phi2) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))
(neg.f64 (*.f64 (-.f64 phi2 phi1) #s(literal 1/2 binary64)))
(neg.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))
(+.f64 (.f64 phi1 #s(literal 1/2 binary64)) (.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 (-.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 (-.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))) (+.f64 (.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))))))
(neg.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2)))
(-.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 (.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 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)) (.f64 (-.f64 phi1 phi2) #s(literal 1/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 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)))) (.f64 (+.f64 (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 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 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 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 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 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))) (+.f64 (.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64))) (+.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 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 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)))))))
(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 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2)) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (fabs.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(sin.f64 (+.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64))))
(-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 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 (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 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 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 (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))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64) (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)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64) (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)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (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)))) (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)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (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 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (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)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (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)))) (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)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (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 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))) (neg.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (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)))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (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)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (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)))))
(134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (cos.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) (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 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 (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 (-.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 (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 #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 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #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))) (+.f64 (.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 (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 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 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))) (+.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 (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) (neg.f64 (.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 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2)))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.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 #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)) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.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 (.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)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) 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)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #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) (.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)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) 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)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #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 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) 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)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.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 #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)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (-.f64 (.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.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 #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 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) 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)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) 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)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 (.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 (.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)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #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)) #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)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (+.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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) 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)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.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 #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)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (-.f64 (pow.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.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 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #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 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) 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)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (-.f64 (.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))) (+.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) 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)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (+.f64 (.f64 (-.f64 (.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 (.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)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #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)) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) 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)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.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 #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)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.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 #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)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) 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)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) 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)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.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 #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)) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64))))
(neg.f64 (-.f64 (-.f64 (.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)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(-.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) 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/2 binary64) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #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)) #s(literal 1/2 binary64)))
(+.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.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 #s(literal -1 binary64) (-.f64 phi1 phi2))) #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 (-.f64 (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(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 (-.f64 (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(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 (-.f64 (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64))
(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 (-.f64 (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #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 (-.f64 (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #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 (-.f64 (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #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 (-.f64 (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #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 (-.f64 (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #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 (-.f64 (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) #s(literal 1/2 binary64)))
(.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(.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) (cos.f64 (*.f64 #s(literal -1 binary64) (-.f64 phi1 phi2)))) #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 (-.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 (.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 (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))) (+.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 (.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/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))) (+.f64 (.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 (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))) (+.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 (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) (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 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 (.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) (neg.f64 (.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 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)))) (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 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 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #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 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #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 binary64)) #s(literal 1/2 binary64)))) (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64)) #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 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #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 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.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 #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)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64))) (-.f64 (.f64 (.f64 (-.f64 (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64)) #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 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.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 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #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 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.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 #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)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(/.f64 (-.f64 (.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) 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)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (+.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #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)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64))) (+.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) 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)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(neg.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #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 binary64)) #s(literal 1/2 binary64))))
(-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 #s(literal 1/2 binary64) (neg.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 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(+.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 (.f64 #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)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(.f64 (pow.f64 (-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.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 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.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 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(fabs.f64 (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(exp.f64 (.f64 (log.f64 (-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) #s(literal 1/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 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(.f64 (.f64 (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 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.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 (-.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(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 R R))
(.f64 (+.f64 R R) (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 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(+.f64 (.f64 (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 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R) (.f64 (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 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R))
(+.f64 (.f64 R (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 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 R (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 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
#s(literal -1/2 binary64)
(*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))
(*.f64 (cos.f64 lambda2) #s(literal -1/2 binary64))
(neg.f64 (*.f64 (cos.f64 lambda2) #s(literal 1/2 binary64)))
(neg.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)))
#s(literal 1/6 binary64)
(.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)))
(.f64 #s(literal 1/6 binary64) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))
(.f64 (neg.f64 (.f64 (sin.f64 lambda2) lambda1)) #s(literal 1/6 binary64))
(neg.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (sin.f64 lambda2)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))))) (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal -1/6 binary64) (neg.f64 (.f64 (sin.f64 lambda2) lambda1))) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))
(/.f64 (-.f64 (.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)))) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))
(/.f64 (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) (.f64 (.f64 #s(literal -1/6 binary64) (neg.f64 (.f64 (sin.f64 lambda2) lambda1))) (.f64 #s(literal -1/6 binary64) (neg.f64 (.f64 (sin.f64 lambda2) lambda1))))) (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (neg.f64 (*.f64 (sin.f64 lambda2) lambda1)))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)))) (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) (.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/6 binary64) (neg.f64 (.f64 (sin.f64 lambda2) lambda1))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) (+.f64 (.f64 (.f64 #s(literal -1/6 binary64) (neg.f64 (.f64 (sin.f64 lambda2) lambda1))) (.f64 #s(literal -1/6 binary64) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (neg.f64 (*.f64 (sin.f64 lambda2) lambda1)))))))
(/.f64 (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) (.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))))) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 (*.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) (-.f64 (.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)))) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 (*.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)))))))
(neg.f64 (-.f64 (.f64 #s(literal -1/6 binary64) (neg.f64 (.f64 (sin.f64 lambda2) lambda1))) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))
(-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2)))
(-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 (neg.f64 (cos.f64 lambda2)) #s(literal -1/2 binary64)))
(-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (neg.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))
(-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (neg.f64 (*.f64 (sin.f64 lambda2) lambda1))))
(+.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))
(+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (neg.f64 (.f64 #s(literal -1/6 binary64) (neg.f64 (*.f64 (sin.f64 lambda2) lambda1)))))
(+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) (.f64 (*.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 lambda1 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)))) (.f64 lambda1 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))) (.f64 lambda1 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) lambda1) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) lambda1))) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) lambda1))
(.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1)
(.f64 lambda1 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))))
(/.f64 (-.f64 (.f64 (.f64 lambda1 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) (.f64 lambda1 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (.f64 (.f64 lambda1 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)))) (.f64 lambda1 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)))))) (-.f64 (.f64 lambda1 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) (.f64 lambda1 (.f64 (*.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))))))
(/.f64 (-.f64 (.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) lambda1) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) lambda1)) (.f64 (.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) lambda1) (.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) lambda1))) (-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) lambda1) (.f64 (.f64 (*.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) lambda1)))
(/.f64 (+.f64 (pow.f64 (.f64 lambda1 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) #s(literal 3 binary64)) (pow.f64 (.f64 lambda1 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 lambda1 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) (.f64 lambda1 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))) (-.f64 (.f64 (.f64 lambda1 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)))) (.f64 lambda1 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))))) (.f64 (.f64 lambda1 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) (.f64 lambda1 (.f64 (*.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) lambda1) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) lambda1) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) lambda1) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) lambda1)) (-.f64 (.f64 (.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) lambda1) (.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) lambda1)) (.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) lambda1) (.f64 (.f64 (*.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) lambda1)))))
(134-z0z1z2z3z4 lambda1 (*.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (neg.f64 (cos.f64 lambda2)) #s(literal -1/2 binary64))
(134-z0z1z2z3z4 lambda1 (*.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) #s(literal 1/2 binary64) (cos.f64 lambda2))
(134-z0z1z2z3z4 lambda1 #s(literal 1/6 binary64) (neg.f64 (*.f64 (sin.f64 lambda2) lambda1)) (neg.f64 (cos.f64 lambda2)) #s(literal -1/2 binary64))
(134-z0z1z2z3z4 lambda1 #s(literal 1/6 binary64) (neg.f64 (*.f64 (sin.f64 lambda2) lambda1)) #s(literal 1/2 binary64) (cos.f64 lambda2))
(134-z0z1z2z3z4 lambda1 #s(literal -1/2 binary64) (cos.f64 lambda2) (neg.f64 (*.f64 #s(literal 1/6 binary64) lambda1)) (neg.f64 (sin.f64 lambda2)))
(134-z0z1z2z3z4 lambda1 #s(literal -1/2 binary64) (cos.f64 lambda2) (*.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (neg.f64 (sin.f64 lambda2))))
(134-z0z1z2z3z4 lambda1 #s(literal -1/2 binary64) (cos.f64 lambda2) #s(literal -1/6 binary64) (neg.f64 (*.f64 (sin.f64 lambda2) lambda1)))
(134-z0z1z2z3z4 lambda1 #s(literal -1/2 binary64) (cos.f64 lambda2) #s(literal 1/6 binary64) (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))))
(134-z0z1z2z3z4 lambda1 #s(literal -1/2 binary64) (cos.f64 lambda2) (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) #s(literal 1/6 binary64))
(134-z0z1z2z3z4 lambda1 #s(literal -1/2 binary64) (cos.f64 lambda2) (neg.f64 (*.f64 (sin.f64 lambda2) lambda1)) #s(literal -1/6 binary64))
(134-z0z1z2z3z4 lambda1 (neg.f64 (*.f64 (sin.f64 lambda2) lambda1)) #s(literal 1/6 binary64) (neg.f64 (cos.f64 lambda2)) #s(literal -1/2 binary64))
(134-z0z1z2z3z4 lambda1 (neg.f64 (*.f64 (sin.f64 lambda2) lambda1)) #s(literal 1/6 binary64) #s(literal 1/2 binary64) (cos.f64 lambda2))
(134-z0z1z2z3z4 lambda1 (cos.f64 lambda2) #s(literal -1/2 binary64) (neg.f64 (*.f64 #s(literal 1/6 binary64) lambda1)) (neg.f64 (sin.f64 lambda2)))
(134-z0z1z2z3z4 lambda1 (cos.f64 lambda2) #s(literal -1/2 binary64) (*.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (neg.f64 (sin.f64 lambda2))))
(134-z0z1z2z3z4 lambda1 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal -1/6 binary64) (neg.f64 (*.f64 (sin.f64 lambda2) lambda1)))
(134-z0z1z2z3z4 lambda1 (cos.f64 lambda2) #s(literal -1/2 binary64) #s(literal 1/6 binary64) (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))))
(134-z0z1z2z3z4 lambda1 (cos.f64 lambda2) #s(literal -1/2 binary64) (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) #s(literal 1/6 binary64))
(134-z0z1z2z3z4 lambda1 (cos.f64 lambda2) #s(literal -1/2 binary64) (neg.f64 (*.f64 (sin.f64 lambda2) lambda1)) #s(literal -1/6 binary64))
(-.f64 (.f64 lambda1 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) (.f64 (neg.f64 lambda1) (.f64 (*.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)))))
(-.f64 (.f64 lambda1 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) (neg.f64 (.f64 lambda1 (.f64 (*.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))))))
(-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) lambda1) (.f64 (.f64 #s(literal -1/6 binary64) (neg.f64 (*.f64 (sin.f64 lambda2) lambda1))) lambda1))
(-.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) lambda1) (neg.f64 (.f64 (.f64 (*.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) lambda1)))
(+.f64 (.f64 lambda1 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)))) (.f64 lambda1 (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))
(+.f64 (.f64 lambda1 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) (.f64 lambda1 (.f64 (*.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)))))
(+.f64 (.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) lambda1) (.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) lambda1))
(+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)) lambda1) (.f64 (.f64 (*.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) lambda1))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (neg.f64 (sin.f64 lambda2))) (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1))) (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (sin.f64 lambda2)) (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1))) (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1)) (.f64 (neg.f64 (neg.f64 (sin.f64 lambda2))) (neg.f64 (neg.f64 (sin.f64 lambda2))))) (-.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (neg.f64 (neg.f64 (sin.f64 lambda2)))))
(/.f64 (+.f64 (pow.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) #s(literal 3 binary64)) (pow.f64 (neg.f64 (neg.f64 (sin.f64 lambda2))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1)) (-.f64 (.f64 (neg.f64 (neg.f64 (sin.f64 lambda2))) (neg.f64 (neg.f64 (sin.f64 lambda2)))) (.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (neg.f64 (neg.f64 (sin.f64 lambda2)))))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1)) (.f64 (neg.f64 (sin.f64 lambda2)) (neg.f64 (sin.f64 lambda2)))) (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (neg.f64 (sin.f64 lambda2))))
(/.f64 (-.f64 (pow.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) #s(literal 3 binary64)) (pow.f64 (neg.f64 (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1)) (+.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (neg.f64 (sin.f64 lambda2))) (.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (neg.f64 (sin.f64 lambda2))))))
(neg.f64 (neg.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2))))
(-.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (neg.f64 (neg.f64 (neg.f64 (sin.f64 lambda2)))))
(-.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (neg.f64 (sin.f64 lambda2)))
(+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (neg.f64 (neg.f64 (sin.f64 lambda2))))
(+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2))
(.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1)
(.f64 lambda1 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)))
(neg.f64 (.f64 (neg.f64 lambda1) (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2))))
(+.f64 (.f64 lambda1 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1)) (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))))
(+.f64 (.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) lambda1) (.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (cos.f64 lambda2) (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1))) (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (neg.f64 lambda1) (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2))) (cos.f64 lambda2))) (cos.f64 lambda2))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) (cos.f64 lambda2))
(/.f64 (-.f64 (.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1)) (.f64 (cos.f64 lambda2) (cos.f64 lambda2))) (-.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2)))
(/.f64 (-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda2)) (.f64 (.f64 (neg.f64 lambda1) (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2))) (.f64 (neg.f64 lambda1) (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2))))) (+.f64 (cos.f64 lambda2) (.f64 (neg.f64 lambda1) (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)))))
(/.f64 (+.f64 (pow.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1)) (-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda2)) (.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2)))))
(/.f64 (-.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (pow.f64 (.f64 (neg.f64 lambda1) (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2))) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda2)) (+.f64 (.f64 (.f64 (neg.f64 lambda1) (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2))) (.f64 (neg.f64 lambda1) (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)))) (.f64 (cos.f64 lambda2) (.f64 (neg.f64 lambda1) (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)))))))
(/.f64 (-.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda2)) (.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1))) (-.f64 (cos.f64 lambda2) (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1)))
(/.f64 (+.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (pow.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) #s(literal 3 binary64))) (+.f64 (.f64 (cos.f64 lambda2) (cos.f64 lambda2)) (-.f64 (.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1)) (.f64 (cos.f64 lambda2) (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1)))))
(neg.f64 (-.f64 (.f64 (neg.f64 lambda1) (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2))) (cos.f64 lambda2)))
(-.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (neg.f64 (cos.f64 lambda2)))
(-.f64 (cos.f64 lambda2) (.f64 (neg.f64 lambda1) (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2))))
(+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))
(+.f64 (cos.f64 lambda2) (.f64 (neg.f64 (neg.f64 lambda1)) (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2))))
(+.f64 (cos.f64 lambda2) (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1))
#s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2)))
(.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #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)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #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)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal -1/2 binary64)) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #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)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal -1/2 binary64)) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal -1/2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #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)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #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)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (+.f64 (.f64 (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))))))
(neg.f64 (-.f64 (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #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)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal -1/2 binary64))))
(-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal -1/2 binary64)))
(.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))))
(neg.f64 (.f64 (-.f64 (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.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(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal -1/2 binary64))))
(+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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 (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)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)))) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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 (.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)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #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)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #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) (.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)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #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)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #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 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #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)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (-.f64 (.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #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)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (-.f64 (.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 (.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)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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)) #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)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (+.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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #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)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(/.f64 (-.f64 (pow.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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))) (+.f64 (.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #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 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64)) (pow.f64 (-.f64 (.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))) (+.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #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)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (+.f64 (.f64 (-.f64 (.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 (.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)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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)) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #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)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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))) (+.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #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)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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)) (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64))))
(neg.f64 (-.f64 (-.f64 (.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)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(-.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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)) #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 (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2)))))
(+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(.f64 (pow.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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)) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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)) #s(literal 1/2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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)) #s(literal 1/2 binary64))))))
(sqrt.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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)) #s(literal 1/2 binary64))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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)) #s(literal 1/2 binary64))))))
(fabs.f64 (sqrt.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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)) #s(literal 1/2 binary64)))))
(exp.f64 (.f64 (log.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)))
(.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #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 binary64)) #s(literal 1/2 binary64)))) (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 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 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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 binary64)) #s(literal 1/2 binary64)))) (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(/.f64 (-.f64 (.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #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 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (-.f64 (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64))) (-.f64 (.f64 (.f64 (-.f64 (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (-.f64 (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #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 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 3 binary64))) (+.f64 (.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 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))
(/.f64 (-.f64 (.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64))) (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #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)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (+.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #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)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64))) (+.f64 (.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #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)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(neg.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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 binary64)) #s(literal 1/2 binary64))))
(-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(-.f64 #s(literal 1/2 binary64) (neg.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 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(+.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
(+.f64 #s(literal 1/2 binary64) (-.f64 (.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)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(.f64 (pow.f64 (-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))
(pow.f64 (-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) #s(literal 1/2 binary64))
(sqrt.f64 (.f64 (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
(fabs.f64 (neg.f64 (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(fabs.f64 (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(exp.f64 (.f64 (log.f64 (-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) #s(literal 1/2 binary64)))
(atan2.f64 (sqrt.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))
(.f64 (.f64 (atan2.f64 (sqrt.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) #s(literal 2 binary64)) R)
(.f64 (atan2.f64 (sqrt.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 R R))
(.f64 (+.f64 R R) (atan2.f64 (sqrt.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))
(+.f64 (.f64 (atan2.f64 (sqrt.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R) (.f64 (atan2.f64 (sqrt.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) R))
(+.f64 (.f64 R (atan2.f64 (sqrt.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))) (.f64 R (atan2.f64 (sqrt.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))))))))

eval2.0s (3.7%)

Memory

132.3MiB live, 2 434.7MiB allocated; 443ms collecting garbage

Samples

1.3s

21 504×

valid

Compiler

Compiled 307 079 to 19 294 computations (93.7% saved)

Precisions

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

ival-mult!: 370.0ms (79.6% of total)

ival-sub!: 67.0ms (14.4% of total)

adjust: 29.0ms (6.2% of total)

prune1.0s (2.0%)

Memory

36.7MiB live, 1 584.5MiB allocated; 169ms collecting garbage

Pruning

208 alts after pruning (208 fresh and 0 done)

	Pruned	Kept	Total
New	1 825	65	1 890
Fresh	44	143	187
Picked	5	0	5
Done	0	0	0
Total	1 874	208	2 082

Accuracy

99.7%

Counts

2 082 → 208

Alt Table

Click to see full alt table

Status	Accuracy	Program
	45.6%	(.f64 (atan2.f64 (.f64 (pow.f64 (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.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) #s(literal 2 binary64))) (pow.f64 (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.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) #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 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))) (*.f64 #s(literal 2 binary64) R))
	41.5%	(.f64 (atan2.f64 (sqrt.f64 (/.f64 (-.f64 (.f64 (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(literal -1/2 binary64)) (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(literal -1/2 binary64))) (.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))) (+.f64 (-.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(literal -1/2 binary64)) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 (+.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(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))))))))) (*.f64 #s(literal 2 binary64) R))
	55.5%	(.f64 (atan2.f64 (sqrt.f64 (-.f64 (-.f64 (.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)))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.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 #s(literal 2 binary64) R))
	41.5%	(.f64 (atan2.f64 (sqrt.f64 (-.f64 (-.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) #s(literal -1/2 binary64)) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (+.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(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))))))))) (*.f64 #s(literal 2 binary64) R))
	31.3%	(.f64 (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 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (-.f64 (cos.f64 lambda2) (neg.f64 (.f64 (sin.f64 lambda2) lambda1)))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 R R))
	29.0%	(.f64 (atan2.f64 (sqrt.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) (-.f64 phi1 phi2))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 lambda2))) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 R R))
	41.5%	(.f64 (atan2.f64 (sqrt.f64 (-.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))))) (+.f64 R R))
	70.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))) (.f64 (134-z0z1z2z3z4 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	72.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))) (.f64 (pow.f64 (sin.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	54.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (+.f64 R R))
	69.7%	(.f64 (atan2.f64 (sqrt.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) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))) (.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 2 binary64) R))
	31.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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) (sin.f64 (-.f64 (-.f64 lambda1 lambda2) (.f64 #s(literal -1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	30.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.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 2 binary64) R))
	21.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (.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)))))) (sqrt.f64 (-.f64 (+.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)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1 binary64)) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R))
	38.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2)) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	21.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2)) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (.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)))))) (sqrt.f64 (-.f64 (+.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)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (.f64 #s(literal -1 binary64) (-.f64 lambda1 lambda2)) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R))
	25.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) (/.f64 #s(literal -1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) (/.f64 #s(literal -1 binary64) #s(literal 2 binary64)))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.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 (pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) (/.f64 #s(literal -1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2)) (/.f64 #s(literal -1 binary64) #s(literal 2 binary64)))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	13.8%	(.f64 (atan2.f64 (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 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda2))))))))) (.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)))))) (sqrt.f64 (-.f64 (+.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)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (+.f64 (.f64 lambda1 lambda1) (+.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda2))))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	54.2%	(.f64 (atan2.f64 (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 (+.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 #s(literal 1/2 binary64)))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 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 (+.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 #s(literal 1/2 binary64)))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	41.3%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 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 (-.f64 (cos.f64 (-.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1) (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 2 binary64)))))) (.f64 #s(literal 2 binary64) R))
	38.1%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (sin.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (.f64 (PI.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) (-.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 (sin.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))))))) (.f64 #s(literal 2 binary64) R))
	47.0%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (sin.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi1))) (-.f64 #s(literal 1/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 (sin.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	38.8%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (sin.f64 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (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)))))) (sqrt.f64 (-.f64 (+.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)))) (.f64 (-.f64 #s(literal 1/2 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 (+.f64 (neg.f64 phi2) (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	43.4%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (sin.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi1) (sin.f64 phi1) (sin.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 (sin.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	38.8%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (sin.f64 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (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)))))) (sqrt.f64 (-.f64 (+.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)))) (.f64 (-.f64 #s(literal 1/2 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 (+.f64 phi2 (.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	39.7%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 (PI.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) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))))) (.f64 #s(literal 2 binary64) R))
	40.6%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 (PI.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) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))) (.f64 #s(literal 2 binary64) R))
	33.7%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 (PI.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) (-.f64 phi1 phi2)))))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))) (*.f64 #s(literal 2 binary64) R))
	30.3%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) 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)))))) (sqrt.f64 (-.f64 (+.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)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(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 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))))))) (.f64 #s(literal 2 binary64) R))
	30.2%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 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 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) (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))))))) (*.f64 #s(literal 2 binary64) R))
	45.2%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 (.f64 (PI.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) (-.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) (sin.f64 (+.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))))))) (.f64 #s(literal 2 binary64) R))
	26.1%	(.f64 (atan2.f64 (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 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) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 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) (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))))))))) (*.f64 #s(literal 2 binary64) R))
	25.9%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 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) (sin.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))))))))) (*.f64 #s(literal 2 binary64) R))
	26.0%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (* (PI) 1/2) phi1) (.f64 #s(literal -1 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) (-.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) (sin.f64 #s(approx (- (* (PI) 1/2) phi1) (.f64 #s(literal -1 binary64) phi1)))))))) (.f64 #s(literal 2 binary64) R))
	55.5%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (/.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 (.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) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.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 #s(literal 2 binary64) R))
	55.1%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (+.f64 phi2 (PI.f64))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (+.f64 phi2 (PI.f64))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.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))
	54.9%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 (-.f64 (-.f64 (.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))))))) (.f64 #s(literal 2 binary64) R))
	26.3%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.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 (+.f64 (pow.f64 R #s(literal 3 binary64)) (pow.f64 R #s(literal 3 binary64))) (+.f64 (.f64 R R) (-.f64 (.f64 R R) (.f64 R R)))))
	41.6%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 (-.f64 #s(approx (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R))
	40.6%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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)))))))))) (*.f64 #s(literal 2 binary64) R))
	50.0%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.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 2 binary64) R))
	35.6%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2)))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))) (.f64 #s(literal 2 binary64) R))
	44.7%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))) (-.f64 (+.f64 #s(literal 1/2 binary64) (+.f64 (.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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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 2 binary64) R))
	51.7%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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 2 binary64) R))
	56.6%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.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 2 binary64) R))
	42.4%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 #s(approx (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg 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 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 2 binary64) R))
	26.1%	(.f64 (atan2.f64 (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 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 phi1 phi2) (.f64 #s(literal -1/2 binary64) (PI.f64)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (-.f64 (-.f64 phi1 phi2) (.f64 #s(literal -1/2 binary64) (PI.f64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.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))
	26.8%	(.f64 (atan2.f64 (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 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)))))))) (sqrt.f64 (-.f64 (+.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)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.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))
	54.4%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.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))
	37.1%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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(approx (+ 1/2 ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (sin.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 #s(literal 2 binary64) R))
	40.4%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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 #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)))))))))) (*.f64 #s(literal 2 binary64) R))
	41.8%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/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 #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))))))))) (.f64 #s(literal 2 binary64) R))
	32.0%	(.f64 (atan2.f64 (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 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)))) (+.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)))))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #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)))))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.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))
	33.1%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2))))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2)))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) #s(approx ( 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2))))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (neg.f64 phi2)))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi2))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R))
	38.0%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) #s(approx ( 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R))
	20.1%	(.f64 (atan2.f64 (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 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))))) #s(approx (* 1/2 (cos phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) #s(approx (* 1/2 (cos phi1)) #s(literal 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 #s(literal 2 binary64) R))
	39.4%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(approx (- 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 phi2)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.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 #s(literal 2 binary64) R))
	26.1%	(.f64 (atan2.f64 (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 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (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 (neg.f64 phi2))))))) (sqrt.f64 (-.f64 (+.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)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.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))
	13.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (exp.f64 (.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 (PI.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) (-.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) (exp.f64 (.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))))))) (.f64 #s(literal 2 binary64) R))
	19.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (exp.f64 (.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (exp.f64 (.f64 (log.f64 (/.f64 #s(literal 2 binary64) (-.f64 lambda1 lambda2))) #s(literal -1 binary64))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	49.8%	(.f64 (atan2.f64 (sqrt.f64 (+.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 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) #s(approx ( 1/2 (- lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R))
	29.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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 #s(approx (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2))))) (.f64 #s(literal -1/2 binary64) (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)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.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 #s(approx (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))))) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R))
	34.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.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 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (pow.f64 (sin.f64 (.f64 (-.f64 phi1 phi2) #s(literal 1/2 binary64))) #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) #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)))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	44.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (cos.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)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- lambda1 lambda2)))) (cos.f64 lambda1)))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (.f64 #s(literal 2 binary64) R))
	36.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) 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 #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)))))) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))) (.f64 #s(literal 2 binary64) R))
	29.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (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 lambda1 lambda2)))))) (-.f64 #s(literal 1/2 binary64) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (neg.f64 phi1) (.f64 (PI.f64) #s(literal 1/2 binary64))))))) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (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 lambda1 lambda2))))))))) (.f64 #s(literal 2 binary64) R))
	36.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (sin.f64 (+.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 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 (+.f64 #s(literal 1/2 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 (sin.f64 (+.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 lambda1 lambda2))))))))) (.f64 #s(literal 2 binary64) R))
	29.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (sin.f64 (+.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 lambda1 lambda2)))))) (-.f64 #s(literal 1/2 binary64) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 (PI.f64) #s(literal 1/2 binary64))))))) #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (sin.f64 (+.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 lambda1 lambda2))))))))) (.f64 #s(literal 2 binary64) R))
	45.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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 #s(literal 1/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)))))) #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 #s(literal 2 binary64) R))
	28.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 (+.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(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 #s(literal 2 binary64) R))
	41.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.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)))))) (-.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)))))) (sqrt.f64 (-.f64 (+.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(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.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))))))))) (*.f64 #s(literal 2 binary64) R))
	52.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 lambda1) (cos.f64 lambda2) (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2)))))) (-.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)))))) (sqrt.f64 (-.f64 (+.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(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) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 lambda1) (cos.f64 lambda2) (sin.f64 lambda1) (neg.f64 (sin.f64 lambda2))))))))) (.f64 #s(literal 2 binary64) R))
	52.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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) (/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) (-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 (+.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(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) (/.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))) (*.f64 #s(literal 2 binary64) R))
	52.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))) (-.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)))))) (sqrt.f64 (-.f64 (+.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(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) (/.f64 (+.f64 (pow.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))) (-.f64 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))))) (.f64 #s(literal 2 binary64) R))
	52.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) (-.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)))))) (sqrt.f64 (-.f64 (+.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(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) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))) (*.f64 #s(literal 2 binary64) R))
	52.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2))))))) (-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 (+.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(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) (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)))))))))) (*.f64 #s(literal 2 binary64) R))
	27.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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) (sin.f64 (+.f64 (-.f64 lambda2 lambda1) (.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)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 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 phi1) (-.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 #s(literal 2 binary64) R))
	24.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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) (sin.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (-.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)))))) (sqrt.f64 (-.f64 (+.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(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) (sin.f64 (+.f64 (-.f64 lambda2 lambda1) (.f64 (PI.f64) #s(literal 1/2 binary64))))))))))) (.f64 #s(literal 2 binary64) R))
	28.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.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)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 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 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64))))))))))) (.f64 #s(literal 2 binary64) R))
	24.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (-.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)))))) (sqrt.f64 (-.f64 (+.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(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) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (.f64 (PI.f64) #s(literal 1/2 binary64))))))))))) (.f64 #s(literal 2 binary64) R))
	41.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))) (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64))))) (sqrt.f64 (-.f64 (+.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(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))))))))) (*.f64 #s(literal 2 binary64) R))
	25.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)) (.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2)) (.f64 (PI.f64) #s(literal 1/2 binary64)))))) #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))))))))) (*.f64 #s(literal 2 binary64) R))
	25.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.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)))))))) (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)))))) #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))))))))) (*.f64 #s(literal 2 binary64) R))
	27.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 phi1 phi1) (.f64 phi2 phi2)) (+.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 (-.f64 (.f64 phi1 phi1) (.f64 phi2 phi2)) (+.f64 phi1 phi2))))))) #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))))))))) (*.f64 #s(literal 2 binary64) R))
	45.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/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 (pow.f64 (cos.f64 (.f64 (-.f64 phi1 phi2) #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))) (.f64 (cos.f64 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))) (*.f64 #s(literal 2 binary64) R))
	45.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/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 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #s(literal 1/2 binary64)))) #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))))))))) (*.f64 #s(literal 2 binary64) R))
	45.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/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 binary64) (.f64 (neg.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 (* (- 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))))))))) (*.f64 #s(literal 2 binary64) R))
	26.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/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(approx (+ 1/2 ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.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 (- 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))))))))) (*.f64 #s(literal 2 binary64) R))
	37.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/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 #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)))))))))) (*.f64 #s(literal 2 binary64) R))
	41.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/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 #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))))))))) (*.f64 #s(literal 2 binary64) R))
	35.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/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 #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))))))))) (.f64 #s(literal 2 binary64) R))
	39.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) 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 (-.f64 #s(literal 1 binary64) (/.f64 phi2 phi1)) 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))))))))) (*.f64 #s(literal 2 binary64) R))
	23.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #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)))))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #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 ( (- 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))))))))) (*.f64 #s(literal 2 binary64) R))
	24.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #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)))))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #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 (* (- 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))))))))) (*.f64 #s(literal 2 binary64) R))
	35.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- phi1 phi2)))) (+.f64 (cos.f64 phi1) (.f64 phi2 (sin.f64 phi1)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos (* 2 (* 1/2 (- phi1 phi2)))) (+.f64 (cos.f64 phi1) (.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))))))))) (*.f64 #s(literal 2 binary64) R))
	45.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- phi1 phi2)))) (cos.f64 (-.f64 phi1 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos ( 2 (* 1/2 (- phi1 phi2)))) (cos.f64 (-.f64 phi1 phi2))))) #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))))))))) (*.f64 #s(literal 2 binary64) R))
	29.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.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))))))) (sqrt.f64 (-.f64 (+.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(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))))))))) (*.f64 #s(literal 2 binary64) R))
	41.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.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)))))) (.f64 (pow.f64 (-.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (-.f64 (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1)))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) R))
	23.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.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)))))) (sqrt.f64 (-.f64 (/.f64 (-.f64 (.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))) #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))))))))) (*.f64 #s(literal 2 binary64) R))
	14.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.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)))))) (sqrt.f64 (-.f64 (+.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(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))))))))) (/.f64 (+.f64 (pow.f64 R #s(literal 3 binary64)) (pow.f64 R #s(literal 3 binary64))) (+.f64 (.f64 R R) (-.f64 (.f64 R R) (*.f64 R R)))))
	41.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.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)))))) (sqrt.f64 (-.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))))) #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64)))) #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))))))))) (*.f64 #s(literal 2 binary64) R))
	36.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.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)))))) (sqrt.f64 (-.f64 #s(approx (+ 1/2 ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (+.f64 #s(literal 1/2 binary64) (+.f64 (.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 (- 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))))))))) (*.f64 #s(literal 2 binary64) R))
	39.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.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)))))) (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 (-.f64 phi1 phi2))))) #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))))))))) (*.f64 #s(literal 2 binary64) R))
	25.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.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)))))) (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))))) #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))))))))) (*.f64 #s(literal 2 binary64) R))
	41.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.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)))))) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))))))) (*.f64 #s(literal 2 binary64) R))
	41.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.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)))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64)))) (-.f64 #s(approx ( 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal -1/2 binary64))))) (.f64 #s(literal 2 binary64) R))
	31.0%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.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)))))) (sqrt.f64 #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)))))))))) (*.f64 #s(literal 2 binary64) R))
	34.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.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)))))) (sqrt.f64 #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))))))))) (*.f64 #s(literal 2 binary64) R))
	28.8%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.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)))))) (sqrt.f64 #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))))))))) (.f64 #s(literal 2 binary64) R))
	21.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) #s(approx (* 1/2 (cos phi1)) #s(literal 1/2 binary64)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) #s(approx (* 1/2 (cos phi1)) #s(literal 1/2 binary64)))) #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))))))))) (*.f64 #s(literal 2 binary64) R))
	25.2%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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 (- 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))))))) (sqrt.f64 (-.f64 (+.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(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))))))))) (*.f64 #s(literal 2 binary64) R))
	39.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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 (- 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)))))) (sqrt.f64 (-.f64 (+.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(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))))))))) (*.f64 #s(literal 2 binary64) R))
	26.6%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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 (- phi1 phi2)))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2))))))) (sqrt.f64 (-.f64 (+.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(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))))))))) (*.f64 #s(literal 2 binary64) R))
	25.5%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))))) (-.f64 #s(literal 1/2 binary64) #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 #s(literal 1/2 binary64) (cos.f64 phi1)))))) (sqrt.f64 (-.f64 (+.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(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) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))))))))) (*.f64 #s(literal 2 binary64) R))
	26.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))))))) (-.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)))))) (sqrt.f64 (-.f64 (+.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(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) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1))))))))))) (.f64 #s(literal 2 binary64) R))
	34.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 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 (+.f64 #s(literal 1/2 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 phi1) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))))))))) (*.f64 #s(literal 2 binary64) R))
	28.7%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))) (-.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)))))) (sqrt.f64 (-.f64 (+.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(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) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))))))))) (*.f64 #s(literal 2 binary64) R))
	38.3%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) (-.f64 #s(literal 1/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)))))) #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) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))))))) (*.f64 #s(literal 2 binary64) R))
	33.1%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) (-.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)))))) (sqrt.f64 (-.f64 (+.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(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) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))))))) (*.f64 #s(literal 2 binary64) R))
	26.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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))))))) (-.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)))))) (sqrt.f64 (-.f64 (+.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(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)))))))))) (.f64 #s(literal 2 binary64) R))
	30.9%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.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)))))) (sqrt.f64 (-.f64 (+.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(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))))))))) (.f64 #s(literal 2 binary64) R))
	26.4%	(.f64 (atan2.f64 (sqrt.f64 (+.f64 #s(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (cos.f64 phi1) #s(approx (- 1/2 ( 1/2 (cos (- 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)))))) (-.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)))))) (sqrt.f64 (-.f64 (+.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(approx ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (cos.f64 phi1) #s(approx (- 1/2 ( 1/2 (cos (- 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))))))))) (.f64 #s(literal 2 binary64) R))
	23.7%	(.f64 (atan2.f64 (sqrt.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(approx (cos (* 2 (* 1/2 (- lambda1 lambda2)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))) lambda1) (sin.f64 lambda2)) lambda1) (cos.f64 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))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.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 (+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))) (*.f64 #s(literal 2 binary64) R))
	31.7%	(.f64 (atan2.f64 (sqrt.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1)) (cos.f64 phi2)) (-.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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) (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))))))) (*.f64 #s(literal 2 binary64) R))
	39.3%	(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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 (-.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) (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))))))) (*.f64 #s(literal 2 binary64) R))
	39.4%	(.f64 (atan2.f64 (sqrt.f64 #s(approx (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))))) (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 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) (sin.f64 (-.f64 (.f64 (PI.f64) #s(literal 1/2 binary64)) phi1))))))) (*.f64 #s(literal 2 binary64) R))
	41.3%	(.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 phi2) (cos phi1)) (* (sin phi1) (sin (neg 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 phi2))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.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 #s(literal 2 binary64) R))
	50.3%	(.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 phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.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 #s(literal 2 binary64) R))
	56.0%	(.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 phi2) (cos phi1)) (* (sin phi1) (sin (neg 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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 phi2)))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (134-z0z1z2z3z4 #s(literal 1/2 binary64) (cos.f64 phi2) (cos.f64 phi1) (sin.f64 phi1) (sin.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 #s(literal 2 binary64) R))
	37.4%	(.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 #s(literal 1/2 binary64) (+.f64 (.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)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.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))
	40.0%	(.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 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 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))
	31.7%	(.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 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 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)))))) #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))))))))) (*.f64 #s(literal 2 binary64) R))
	28.8%	(.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 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 phi2)))))) (sqrt.f64 (-.f64 (+.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(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))))))))) (*.f64 #s(literal 2 binary64) R))
	31.4%	(.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 #s(literal 1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))))) (sqrt.f64 (-.f64 (+.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(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))))))))) (*.f64 #s(literal 2 binary64) R))
	44.4%	(.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 #s(literal 1/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)))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.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))
	35.3%	(.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 #s(literal 1/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)))))) (sqrt.f64 (-.f64 (+.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(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))))))))) (*.f64 #s(literal 2 binary64) R))
	41.5%	(.f64 (atan2.f64 (exp.f64 (.f64 (log.f64 (-.f64 #s(approx (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (cos.f64 phi1))) (-.f64 #s(approx (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2))))) (.f64 (cos.f64 phi1) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))) (sqrt.f64 (-.f64 (+.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(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))))))))) (*.f64 #s(literal 2 binary64) R))
	43.2%	(.f64 (+.f64 R R) (atan2.f64 (sqrt.f64 (-.f64 (.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 (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 phi1 phi2))) #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) (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64))) (cos.f64 phi1))))))))
	57.1%	(.f64 (+.f64 R R) (atan2.f64 (sqrt.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64)))))))
	45.6%	(.f64 #s(approx (atan2 (sqrt (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1)))) (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))))) (sqrt (- (+ 1/2 (* 1/2 (cos (* 2 (* 1/2 (- phi1 phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (sin (- (* (PI) 1/2) phi1))))))) (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #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))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 phi1 phi2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))) (*.f64 #s(literal 2 binary64) R))
	69.6%	(.f64 #s(approx (atan2 (sqrt (+ ( (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1))) (- 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))))) (sqrt (- (+ 1/2 (* 1/2 (- (* (cos phi2) (cos phi1)) (* (sin phi1) (sin (neg phi2)))))) (* (- 1/2 (* 1/2 (cos (* 2 (* 1/2 (- lambda1 lambda2)))))) (* (cos phi2) (cos phi1)))))) (atan2.f64 (sqrt.f64 (-.f64 (+.f64 #s(literal 1/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) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 phi2))))))) (sqrt.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 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)))))))))) (*.f64 #s(literal 2 binary64) R))
	58.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (.f64 (pow.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64))) (pow.f64 (+.f64 (.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)))) (pow.f64 (neg.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi2 phi1)))) #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (+.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #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))))))))))))
	54.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (-.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))))))))
	54.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (-.f64 (.f64 (cos.f64 (-.f64 lambda2 lambda1)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))))))
	56.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))) (.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) (-.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))))))))))
	56.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (-.f64 (.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 (.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) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.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))))))))))))
	92.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #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 (/.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #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))))))))))))
	72.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (-.f64 #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))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (-.f64 #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)))))))))
	98.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (+.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 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(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 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (+.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 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(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))))))))))))
	98.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 (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 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 (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)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 (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 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 lambda2 #s(literal 1/2 binary64)))) (.f64 (+.f64 (.f64 (sin.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (cos.f64 (.f64 (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))))))))))))
	60.6%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.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 (.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 (cos.f64 (*.f64 #s(literal 1 binary64) (-.f64 lambda1 lambda2))) #s(literal 1/2 binary64)))))))))
	98.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.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 (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.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 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.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 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.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 (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 phi1 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (+.f64 (.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 (.f64 #s(literal -1/4 binary64) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64))) (+.f64 (.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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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(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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 #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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #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 #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))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #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 #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)))))))))))
	51.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (- ( (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (- ( (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1))))))) #s(approx (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* lambda1 1/2)) (sin (* lambda2 1/2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))))
	71.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #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)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #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))))))))))
	68.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #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 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #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.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #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 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #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)))))))))))
	59.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #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))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) #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)))))))))))
	98.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #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 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))))) (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #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))))))))))))
	22.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (/.f64 (-.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 phi2 #s(literal 3 binary64))) (+.f64 (.f64 phi1 phi1) (+.f64 (.f64 phi2 phi2) (.f64 phi1 phi2)))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	79.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 (134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (-.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 (134-z0z1z2z3z4 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) lambda1))) (-.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.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 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (-.f64 phi2 phi1)) (cos.f64 (+.f64 phi2 phi1))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	79.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) (+.f64 (.f64 (sin.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 (PI.f64) #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 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) (+.f64 (.f64 (sin.f64 phi2) (cos.f64 (.f64 #s(literal -1/2 binary64) (PI.f64)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 (PI.f64) #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 1/2 binary64)))) (.f64 (cos.f64 (.f64 lambda1 #s(literal 1/2 binary64))) (sin.f64 (.f64 lambda2 #s(literal 1/2 binary64))))))))))))
	47.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/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.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)) (-.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 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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)))))))))
	59.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.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 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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) (+.f64 (.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)))))))))
	79.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)) (.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 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.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 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) 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)) (.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 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))))) (.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 #s(literal 1/2 binary64) lambda1))))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))))))))
	47.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 (+.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 (+.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 #s(literal 1/2 binary64))) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (.f64 (-.f64 lambda1 lambda2) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) lambda1)) (.f64 lambda2 #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	59.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (.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))))))))))
	59.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 1 binary64) #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) (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (-.f64 #s(literal 1/2 binary64) (.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 #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)))))))))))))
	20.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) lambda1) #s(literal 3 binary64)) (pow.f64 (.f64 lambda2 #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 #s(literal 1/2 binary64) lambda1)) (+.f64 (.f64 (.f64 lambda2 #s(literal 1/2 binary64)) (.f64 lambda2 #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 lambda2 #s(literal 1/2 binary64))))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	36.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ 2 (- lambda1 lambda2)) (/.f64 (-.f64 (.f64 #s(literal -2 binary64) (/.f64 lambda1 lambda2)) #s(literal 2 binary64)) lambda2)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	38.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (/.f64 #s(literal 1 binary64) #s(approx (/ 2 (- lambda1 lambda2)) (/.f64 #s(literal 2 binary64) lambda1)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	37.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 #s(approx ( 1/2 (- lambda1 lambda2)) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	34.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 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 (+ (* (cos phi1) (pow (sin (/ 1 (/ 2 (- lambda1 lambda2)))) 2)) (pow (sin (* 1/2 phi1)) 2))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)))))))))
	35.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) #s(literal 2 binary64)))) (sin.f64 (/.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) #s(approx (- lambda1 lambda2) (.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)))))))))
	21.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)) #s(approx (sin (/ (- lambda1 lambda2) 2)) #s(approx (+ (sin ( -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2))))) (+.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/16 binary64) (.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) #s(approx (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2))))) (+.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/16 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)) #s(approx (sin (/ (- lambda1 lambda2) 2)) #s(approx (+ (sin ( -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2))))) (+.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/16 binary64) (.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))))) #s(approx (sin (/ (- lambda1 lambda2) 2)) #s(approx (+ (sin (* -1/2 lambda2)) (* 1/2 (* lambda1 (cos (* -1/2 lambda2))))) (+.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/16 binary64) (.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))))))))
	30.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 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (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)))))))))
	64.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 #s(approx (* (cos phi1) (cos phi2)) (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 #s(approx (* (cos phi1) (cos phi2)) (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))))))))))))
	50.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(approx ( (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
	41.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) (.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 (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- 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 #s(literal 1 binary64) (+.f64 (.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)))))))))
	76.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64)))) (.f64 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #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 (-.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 (+.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1 binary64)) #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))))))))))))
	72.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (pow.f64 (.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 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))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (+.f64 (pow.f64 (.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 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)))))))))))
	76.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 phi2 phi1)) #s(literal 1/2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.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 phi2 phi1)) #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))))))))))))
	98.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #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 (+.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (pow.f64 (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #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)))))))))))
	99.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #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 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) #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))))))))))))
	49.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (+.f64 (-.f64 (pow.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (exp.f64 (.f64 (log.f64 (.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)) (-.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 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (.f64 (.f64 (cos.f64 (.f64 phi2 #s(literal 1/2 binary64))) (sin.f64 (.f64 phi1 #s(literal 1/2 binary64)))) (.f64 (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))) (cos.f64 (.f64 phi1 #s(literal 1/2 binary64))))))) (exp.f64 (.f64 (log.f64 (.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)) (-.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))))))))))))
	74.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.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 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)))) (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64))) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.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.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (.f64 (+.f64 #s(literal 1 binary64) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))) (pow.f64 (.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)) (-.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 #s(literal 1 binary64) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2))) #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 phi1 #s(literal 1/2 binary64))) (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))) #s(literal 2 binary64)))) (pow.f64 (.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)) (-.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))))))))))))
	23.0%	(.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 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	40.3%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (.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))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.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)))))))))
	57.9%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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)))))))))
	57.1%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (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 (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (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)))))))))
	50.8%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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))))) (+.f64 (.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 (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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))))) (+.f64 (.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))))))))))
	36.0%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (sin (+ (neg phi1) (* (PI) 1/2))) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))))))
	42.4%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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.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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64)))))))))
	51.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 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 phi1 (.f64 (cos.f64 (.f64 #s(literal -1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1))) (.f64 (cos.f64 (.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))))))))))
	43.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 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) phi2)) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) ( (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/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 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.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)))))))))
	34.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)))) (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal -1/2 binary64) lambda2)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 phi1 phi2))) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (- 1 (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2))))) (-.f64 #s(literal 1 binary64) (+.f64 (.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)))))))))
	39.2%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (pow (sin (/ (- phi1 phi2) 2)) 2) (* (* (* (cos phi1) (cos phi2)) (sin (/ (- lambda1 lambda2) 2))) (sin (/ (- lambda1 lambda2) 2)))) (+.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))))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(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 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))))) (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.f64 lambda1 lambda2))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) #s(literal 2 binary64))))))))))
	53.5%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 #s(approx (+ (+ (- (pow (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) #s(approx (+ (+ (- (pow ( (cos (* phi2 1/2)) (sin (* phi1 1/2))) 2) (* 2 (* (* (cos (* phi2 1/2)) (sin (* phi1 1/2))) (* (sin (* phi2 1/2)) (cos (* phi1 1/2)))))) (pow (* (sin (* phi2 1/2)) (cos (* phi1 1/2))) 2)) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda2)) #s(literal 2 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) phi2)) #s(literal 2 binary64))) (.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) phi1)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) phi2)))))))))))))
	56.7%	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 #s(approx (sqrt (+ (pow (- (* (sin (* 1/2 phi1)) (cos (* phi2 1/2))) (* (cos (* 1/2 phi1)) (sin (* phi2 1/2)))) 2) (* (* (* (cos phi1) (cos phi2)) (- (* (sin (* lambda1 1/2)) (cos (* lambda2 1/2))) (* (cos (* 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 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) lambda1)) (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)))))) (sqrt.f64 (+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) lambda1)) #s(literal 2 binary64)))) (pow.f64 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi2)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi1))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 #s(literal 1/2 binary64) phi2)))) #s(literal 2 binary64)))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (-.f64 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) phi1)) (cos.f64 (.f64 phi2 #s(literal 1/2 binary64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) phi1)) (sin.f64 (.f64 phi2 #s(literal 1/2 binary64))))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (-.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))))))))))))
	57.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 1/2)) (cos (* lambda2 1/2))) (* (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 (.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 (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))))))))))))
	42.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 (+.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (-.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) (+.f64 (.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)))))))))

Samples

394.0ms

7 168×

valid

Compiler

Compiled 24 369 to 10 004 computations (58.9% saved)

Precisions

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

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

ival-sub!: 22.0ms (16.5% of total)

adjust: 8.0ms (6.0% of total)

regimes17.1s (31.9%)

Memory

571.8MiB live, 23 437.7MiB allocated; 6.0s collecting garbage

Counts

1 → 1

2 → 3

3 → 3

13 → 1

14 → 3

19 → 1

29 → 2

61 → 3

72 → 3

75 → 1

124 → 2

137 → 2

150 → 2

169 → 2

170 → 1

215 → 1

268 → 3

276 → 3

277 → 3

299 → 3

300 → 3

305 → 3

323 → 3

331 → 3

335 → 3

342 → 3

346 → 3

348 → 3

350 → 3

357 → 1

360 → 1

365 → 1

373 → 1

374 → 1

386 → 1

Calls

Call 1

Inputs

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

Outputs

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

Call 2

Inputs

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

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

Outputs

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

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

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

Call 3

Inputs

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

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

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

Outputs

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

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

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

Call 4

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

Outputs

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

Call 5

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

Outputs

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

(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.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))))))) (sqrt.f64 (-.f64 (+.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(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))))))))) (*.f64 #s(literal 2 binary64) R))

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

Call 6

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

Outputs

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

Call 7

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

Outputs

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

(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #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)))))) (-.f64 #s(literal 1/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 #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))))))))) (*.f64 #s(literal 2 binary64) R))

Call 8

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

Outputs

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

(*.f64 (atan2.f64 (sqrt.f64 (+.f64 #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 #s(literal 1/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)))))) #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 #s(literal 2 binary64) R))

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

Call 9

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

Outputs

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

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

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

Call 10

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

Outputs

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

Call 11

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

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

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

Call 12

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

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

Call 13

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

(*.f64 R (*.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (fabs.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))))))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (fabs.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)))))))))))))

Call 14

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

Outputs

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

Call 15

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

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

Outputs

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

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

Outputs

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

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

Call 18

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

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

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

Call 19

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

Outputs

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

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

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

Call 20

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

Outputs

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

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

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

Call 21

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

Outputs

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

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

Call 22

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

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

Call 23

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

Outputs

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

Call 24

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

Call 25

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

Outputs

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

Call 26

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

Outputs

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

Call 27

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

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

Call 28

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

Outputs

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

Call 29

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

Outputs

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

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

Call 30

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

Outputs

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

Call 31

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

Outputs

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

Call 32

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

Outputs

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

Call 33

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

Outputs

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

Call 34

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

Call 35

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

Outputs

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

Calls

237 calls:

237.0ms	lambda2
186.0ms	phi2
174.0ms	(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))
148.0ms	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
133.0ms	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))

Results

Accuracy	Segments	Branch
21.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)))))`
21.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))))))))
21.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)))))))))
21.9%	1	`phi2`
21.9%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
21.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))))))))))
21.9%	1	`(-.f64 lambda1 lambda2)`
21.9%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
21.9%	1	`R`
21.9%	1	`lambda1`
21.9%	1	`lambda2`
21.9%	1	`phi1`
38.0%	3	`phi1`
34.9%	2	`lambda2`
33.1%	1	`lambda1`
33.1%	1	`(-.f64 lambda1 lambda2)`
33.1%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
33.1%	1	`phi2`
33.1%	1	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`
33.1%	1	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
33.1%	1	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
33.1%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
41.3%	3	`lambda1`
41.1%	3	`lambda2`
38.5%	3	`phi1`
33.1%	1	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
33.1%	1	`R`
41.5%	1	`R`
41.5%	1	`phi2`
41.5%	1	`phi1`
41.5%	1	`(-.f64 lambda1 lambda2)`
41.5%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
41.5%	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))))))))
41.5%	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)))))))))
41.5%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
41.5%	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)))))`
41.5%	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))))))))))
41.5%	1	`R`
41.5%	1	`lambda2`
45.8%	3	`phi2`
41.5%	1	`lambda1`
46.7%	3	`phi1`
45.6%	1	`lambda1`
45.6%	1	`phi1`
45.6%	1	`phi2`
45.6%	1	`lambda1`
45.6%	1	`(-.f64 lambda1 lambda2)`
45.6%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
45.6%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
47.4%	2	`phi2`
48.9%	3	`phi1`
54.9%	3	`phi1`
54.7%	3	`phi2`
45.6%	1	`R`
45.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))))))))))
54.9%	3	`phi1`
48.2%	2	`(-.f64 lambda1 lambda2)`
48.2%	2	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
55.0%	3	`phi2`
50.8%	3	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
45.6%	1	`lambda2`
48.1%	2	`lambda1`
45.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)))))`
45.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))))))))
45.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)))))))))
54.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))))))))))
54.4%	1	`R`
54.4%	1	`phi1`
54.4%	1	`(-.f64 lambda1 lambda2)`
54.4%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
54.4%	1	`lambda1`
54.4%	1	`lambda2`
54.4%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
54.4%	1	`phi2`
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)))))`
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)))))))))
59.3%	2	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`
59.3%	2	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
59.3%	2	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
59.3%	2	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
59.3%	2	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
59.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))))))))
59.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)))))))))
59.3%	2	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`
57.1%	1	`R`
57.1%	1	`phi1`
57.1%	1	(.f64 R (.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))))
57.1%	1	`(-.f64 lambda1 lambda2)`
57.1%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
57.1%	1	`lambda2`
59.5%	2	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
59.5%	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)))))))))
57.1%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
57.1%	1	`lambda1`
60.8%	3	`phi2`
59.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)))))`
59.5%	1	`R`
59.5%	1	`phi1`
59.5%	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))))))))))
59.5%	1	`(-.f64 lambda1 lambda2)`
59.5%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
59.5%	1	`lambda1`
59.5%	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))))))))
59.5%	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)))))))))
59.5%	1	`lambda2`
59.5%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
59.5%	1	`phi2`
59.5%	1	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`
60.0%	1	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
60.0%	1	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
60.0%	1	`(+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))`
60.0%	1	`phi1`
60.0%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
60.0%	1	`(-.f64 lambda1 lambda2)`
60.0%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
60.0%	1	`phi2`
60.0%	1	`lambda1`
60.0%	1	`lambda2`
65.7%	3	`phi1`
66.2%	3	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
64.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))))))))
64.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)))))))))
64.5%	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)))))`
68.5%	3	`lambda2`
66.5%	3	`(-.f64 lambda1 lambda2)`
66.5%	3	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
60.0%	1	`R`
60.0%	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.6%	3	`lambda1`
67.4%	3	`phi2`
81.1%	3	`phi2`
81.2%	3	`phi2`
77.1%	3	`lambda2`
74.7%	2	(atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))))))))
74.7%	2	(.f64 #s(literal 2 binary64) (atan2.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 (/.f64 (-.f64 phi1 phi2) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))) (sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))))))))
74.7%	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)))))`
81.2%	3	`phi2`
85.2%	3	`phi2`
74.0%	2	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
72.0%	1	`phi1`
86.6%	3	`phi1`
86.9%	3	`phi1`
86.9%	3	`phi1`
79.1%	3	`(-.f64 lambda1 lambda2)`
79.1%	3	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
86.1%	3	`phi2`
87.2%	3	`phi1`
88.4%	3	`phi1`
88.8%	3	`phi1`
80.9%	3	`lambda1`
82.5%	3	`lambda2`
89.9%	3	`lambda2`
88.4%	3	`(-.f64 lambda1 lambda2)`
88.4%	3	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
86.2%	3	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
83.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)))))`
83.7%	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.7%	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)))))))))
76.5%	1	`R`
89.9%	3	`lambda1`
88.8%	3	`phi1`
78.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))))))))))
90.3%	3	`lambda2`
88.4%	3	`phi2`
98.9%	1	`(-.f64 lambda1 lambda2)`
98.9%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
98.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)))))`
98.9%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
98.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))))))))
98.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)))))))))
98.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))))))))))
98.9%	1	`R`
98.9%	1	`lambda1`
98.9%	1	`lambda2`
98.9%	1	`phi1`
98.9%	1	`phi2`
98.9%	1	`(-.f64 lambda1 lambda2)`
98.9%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
98.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)))))`
98.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))))))))
98.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)))))))))
98.9%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
98.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))))))))))
98.9%	1	`R`
98.9%	1	`lambda1`
98.9%	1	`lambda2`
98.9%	1	`phi1`
98.9%	1	`phi2`
98.9%	1	`(-.f64 lambda1 lambda2)`
98.9%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
98.9%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
98.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)))))`
98.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))))))))
98.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)))))))))
98.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))))))))))
98.9%	1	`R`
98.9%	1	`lambda1`
98.9%	1	`lambda2`
98.9%	1	`phi1`
98.9%	1	`phi2`
98.9%	1	`(-.f64 lambda1 lambda2)`
98.9%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
98.9%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
98.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)))))`
98.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))))))))
98.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)))))))))
98.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))))))))))
98.9%	1	`R`
98.9%	1	`lambda1`
98.9%	1	`phi1`
98.9%	1	`lambda2`
98.9%	1	`phi2`
99.0%	1	`(-.f64 lambda1 lambda2)`
99.0%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
99.0%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
99.0%	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)))))`
99.0%	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))))))))
99.0%	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)))))))))
99.0%	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))))))))))
99.0%	1	`R`
99.0%	1	`lambda1`
99.0%	1	`phi1`
99.0%	1	`lambda2`
99.0%	1	`phi2`
99.0%	1	`(-.f64 lambda1 lambda2)`
99.0%	1	`(/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64))`
99.0%	1	`(sin.f64 (/.f64 (-.f64 lambda1 lambda2) #s(literal 2 binary64)))`
99.0%	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)))))`
99.0%	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))))))))
99.0%	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)))))))))
99.0%	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))))))))))
99.0%	1	`R`
99.0%	1	`lambda1`
99.0%	1	`lambda2`
99.0%	1	`phi1`
99.0%	1	`phi2`

Samples

165.0ms

3 072×

valid

Compiler

Compiled 47 934 to 6 339 computations (86.8% saved)

Precisions

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

ival-mult!: 44.0ms (77.8% of total)

ival-sub!: 9.0ms (15.9% of total)

adjust: 4.0ms (7.1% of total)

bsearch335.0ms (0.6%)

Memory

15.2MiB live, 831.4MiB allocated; 78ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
199.0ms	4.9797703805519714e-6	0.0003428046006172836
121.0ms	-0.0003853798124253357	-4.8880940950198746e-5

Samples

301.0ms	192×	1	valid
3.0ms	16×	0	valid

Compiler

Compiled 4 176 to 1 113 computations (73.3% saved)

Precisions

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

ival-sin: 105.0ms (38.2% of total)

ival-cos: 71.0ms (25.8% of total)

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

adjust: 18.0ms (6.5% of total)

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

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

ival-sqrt: 7.0ms (2.5% of total)

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

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

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

bsearch185.0ms (0.3%)

Memory

-8.9MiB live, 797.3MiB allocated; 53ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
166.0ms	4.269981649220615e-13	2.577625496659936e-9
7.0ms	-0.0003853798124253357	-4.8880940950198746e-5

Samples

148.0ms	120×	1	valid
6.0ms	8×	0	valid

Compiler

Compiled 2 980 to 986 computations (66.9% saved)

Precisions

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

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

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

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

adjust: 9.0ms (6.9% of total)

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

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

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

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

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

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

bsearch313.0ms (0.6%)

Memory

-5.6MiB live, 358.9MiB allocated; 84ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
175.0ms	3.874351444776668e-9	156816.21424389174
112.0ms	-1963.231869275096	-60.530177890405376

Samples

250.0ms	248×	1	valid
14.0ms	184×	0	valid

Compiler

Compiled 4 616 to 1 480 computations (67.9% saved)

Precisions

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

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

ival-sin: 60.0ms (27.3% of total)

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

adjust: 16.0ms (7.3% of total)

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

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

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

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

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

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

bsearch244.0ms (0.5%)

Memory

20.2MiB live, 297.4MiB allocated; 29ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
137.0ms	3.874351444776668e-9	156816.21424389174
90.0ms	-5.756144543711987e-8	-1.267992311555329e-8

Samples

198.0ms	207×	1	valid
11.0ms	177×	0	valid

Compiler

Compiled 3 660 to 1 712 computations (53.2% saved)

Precisions

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

ival-sin: 70.0ms (37.7% of total)

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

adjust: 15.0ms (8.1% of total)

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

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

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

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

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

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

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

bsearch330.0ms (0.6%)

Memory

22.4MiB live, 453.4MiB allocated; 125ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
173.0ms	1.2058244068266114e-14	3.874351444776668e-9
141.0ms	-14.439728964653911	-1.3793320169263971e-6

Samples

291.0ms	266×	1	valid
4.0ms	22×	0	valid

Compiler

Compiled 5 396 to 1 690 computations (68.7% saved)

Precisions

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

ival-cos: 81.0ms (30.2% of total)

ival-sin: 76.0ms (28.4% of total)

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

adjust: 18.0ms (6.7% of total)

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

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

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

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

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

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

bsearch18.0ms (0.0%)

Memory

-27.0MiB live, 23.5MiB allocated; 13ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
11.0ms	1.2058244068266114e-14	3.874351444776668e-9
3.0ms	-5.756144543711987e-8	-1.267992311555329e-8

Compiler

Compiled 4 148 to 1 354 computations (67.4% saved)

bsearch10.0ms (0.0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
4.0ms	1.2058244068266114e-14	3.874351444776668e-9
3.0ms	-5.756144543711987e-8	-1.267992311555329e-8

Compiler

Compiled 4 058 to 1 369 computations (66.3% saved)

bsearch23.0ms (0.0%)

Memory

-5.9MiB live, 40.1MiB allocated; 5ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
15.0ms	1.2058244068266114e-14	3.874351444776668e-9
3.0ms	-5.756144543711987e-8	-1.267992311555329e-8

Samples

8.0ms

144×

valid

Compiler

Compiled 4 208 to 1 453 computations (65.5% saved)

Precisions

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

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

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

adjust: 0.0ms (0.0% of total)

bsearch255.0ms (0.5%)

Memory

26.7MiB live, 354.4MiB allocated; 33ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
90.0ms	14149.61970218951	166456.8202547251
151.0ms	-4.084228776867011	-2.05361751434905e-13

Samples

210.0ms	229×	1	valid
10.0ms	123×	0	valid

Compiler

Compiled 4 116 to 1 388 computations (66.3% saved)

Precisions

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

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

ival-sin: 58.0ms (29.6% of total)

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

adjust: 14.0ms (7.2% of total)

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

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

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

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

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

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

bsearch25.0ms (0.0%)

Memory

-4.1MiB live, 89.4MiB allocated; 5ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
14.0ms	14149.61970218951	166456.8202547251
4.0ms	-4.084228776867011	-2.05361751434905e-13

Samples

10.0ms

96×

valid

Compiler

Compiled 3 092 to 1 308 computations (57.7% saved)

Precisions

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

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

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

adjust: 0.0ms (0.0% of total)

bsearch29.0ms (0.1%)

Memory

10.2MiB live, 55.0MiB allocated; 5ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
8.0ms	14149.61970218951	166456.8202547251
16.0ms	-4.084228776867011	-2.05361751434905e-13

Samples

16.0ms

256×

valid

Compiler

Compiled 3 012 to 1 298 computations (56.9% saved)

Precisions

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

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

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

adjust: 0.0ms (0.0% of total)

bsearch24.0ms (0.0%)

Memory

-26.2MiB live, 26.0MiB allocated; 24ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
2.0ms	14149.61970218951	166456.8202547251
18.0ms	-4.084228776867011	-2.05361751434905e-13

Compiler

Compiled 4 228 to 1 730 computations (59.1% saved)

bsearch271.0ms (0.5%)

Memory

14.8MiB live, 337.6MiB allocated; 35ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
131.0ms	1.1343438865901958e+50	6.740319025853098e+53
127.0ms	-1.014255538008504e-12	-7.729348888163091e-16

Samples

233.0ms	234×	1	valid
4.0ms	22×	0	valid

Compiler

Compiled 3 012 to 1 442 computations (52.1% saved)

Precisions

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

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

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

adjust: 18.0ms (8.5% of total)

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

ival-sqrt: 12.0ms (5.7% of total)

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

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

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

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

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

bsearch3.0ms (0.0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.03730416889820235	0.03900357466211146

Compiler

Compiled 95 to 48 computations (49.5% saved)

bsearch3.0ms (0.0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.03799119436751919	0.047332570722666084

Compiler

Compiled 130 to 54 computations (58.5% saved)

bsearch3.0ms (0.0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.024036330020151955	0.024809537888359406

Compiler

Compiled 130 to 54 computations (58.5% saved)

bsearch3.0ms (0.0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.024036330020151955	0.024809537888359406

Compiler

Compiled 130 to 54 computations (58.5% saved)

bsearch268.0ms (0.5%)

Memory

-1.5MiB live, 325.1MiB allocated; 43ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
183.0ms	3.2537193901863573e-18	14149.61970218951
75.0ms	-4.084228776867011	-2.05361751434905e-13

Samples

219.0ms	216×	1	valid
7.0ms	24×	0	valid

Compiler

Compiled 4 289 to 2 302 computations (46.3% saved)

Precisions

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

ival-cos: 66.0ms (33.0% of total)

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

adjust: 29.0ms (14.5% of total)

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

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

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

ival-div!: 7.0ms (3.5% of total)

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

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

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

bsearch273.0ms (0.5%)

Memory

-0.5MiB live, 473.9MiB allocated; 61ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
155.0ms	3.432340472366388e-22	1.2058244068266114e-14
108.0ms	-1963.231869275096	-60.530177890405376

Samples

230.0ms	227×	1	valid
3.0ms	13×	0	valid

Compiler

Compiled 3 204 to 1 441 computations (55.0% saved)

Precisions

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

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

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

adjust: 15.0ms (7.5% of total)

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

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

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

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

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

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

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

bsearch120.0ms (0.2%)

Memory

25.0MiB live, 161.8MiB allocated; 11ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
114.0ms	1.696902576341707e-35	1.9606405131942113e-31

Samples

104.0ms	115×	1	valid
2.0ms	13×	0	valid

Compiler

Compiled 1 700 to 818 computations (51.9% saved)

Precisions

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

ival-cos: 37.0ms (38.5% of total)

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

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

adjust: 7.0ms (7.3% of total)

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

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

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

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

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

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

bsearch198.0ms (0.4%)

Memory

-32.0MiB live, 253.9MiB allocated; 35ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
115.0ms	3.432340472366388e-22	1.2058244068266114e-14
73.0ms	-1.1622826619288851e-155	-3.3671451506735386e-156

Samples

170.0ms	188×	1	valid
4.0ms	20×	0	valid

Compiler

Compiled 2 924 to 1 297 computations (55.6% saved)

Precisions

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

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

ival-cos: 53.0ms (33.6% of total)

adjust: 12.0ms (7.6% of total)

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

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

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

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

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

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

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

bsearch276.0ms (0.5%)

Memory

9.8MiB live, 384.1MiB allocated; 27ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
116.0ms	5.294744170556006e+49	8.498848882759822e+52
147.0ms	-2.1626936798968978e-7	-1.4702525998316328e-21

Samples

239.0ms	270×	1	valid
6.0ms	18×	0	valid

Compiler

Compiled 4 028 to 1 636 computations (59.4% saved)

Precisions

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

ival-cos: 83.0ms (37.9% of total)

ival-sin: 66.0ms (30.1% of total)

adjust: 16.0ms (7.3% of total)

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

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

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

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

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

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

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

bsearch107.0ms (0.2%)

Memory

36.3MiB live, 129.7MiB allocated; 6ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
3.0ms	3.432340472366388e-22	1.2058244068266114e-14
100.0ms	-14.439728964653911	-1.3793320169263971e-6

Samples

92.0ms	89×	1	valid
1.0ms	7×	0	valid

Compiler

Compiled 3 956 to 1 618 computations (59.1% saved)

Precisions

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

ival-sin: 36.0ms (42.3% of total)

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

adjust: 5.0ms (5.9% of total)

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

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

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

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

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

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

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

derivations953.0ms (1.8%)

Memory

-2.0MiB live, 1 026.5MiB allocated; 235ms collecting garbage

Stop Event

1×

fuel

Samples

13.0ms

256×

valid

Compiler

Compiled 8 947 to 657 computations (92.7% saved)

Precisions

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

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

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

adjust: 0.0ms (0.0% of total)

preprocess1.2s (2.2%)

Memory

48.9MiB live, 1 632.2MiB allocated; 211ms collecting garbage

Samples

591.0ms

8 000×

valid

Compiler

Compiled 9 012 to 683 computations (92.4% saved)

Precisions

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

ival-mult!: 185.0ms (81.1% of total)

ival-sub!: 26.0ms (11.4% of total)

adjust: 17.0ms (7.5% of total)

end0.0ms (0.0%)

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

start0.0ms (0.0%)

analyze1.1s (2.0%)

sample8.3s (15.6%)

preprocess38.0ms (0.1%)

series169.0ms (0.3%)

rewrite217.0ms (0.4%)

eval266.0ms (0.5%)

prune238.0ms (0.4%)

series609.0ms (1.1%)

rewrite506.0ms (0.9%)

eval2.7s (5.0%)

prune544.0ms (1.0%)

series556.0ms (1.0%)

rewrite534.0ms (1.0%)

eval9.6s (18.0%)

prune1.7s (3.1%)

series467.0ms (0.9%)

rewrite431.0ms (0.8%)

eval2.0s (3.7%)

prune1.0s (2.0%)

regimes17.1s (31.9%)

bsearch335.0ms (0.6%)

bsearch185.0ms (0.3%)

bsearch313.0ms (0.6%)

bsearch244.0ms (0.5%)

bsearch330.0ms (0.6%)

bsearch18.0ms (0.0%)

bsearch10.0ms (0.0%)

bsearch23.0ms (0.0%)

bsearch255.0ms (0.5%)

bsearch25.0ms (0.0%)

bsearch29.0ms (0.1%)

bsearch24.0ms (0.0%)

bsearch271.0ms (0.5%)

bsearch3.0ms (0.0%)

bsearch3.0ms (0.0%)

bsearch3.0ms (0.0%)

bsearch3.0ms (0.0%)

bsearch268.0ms (0.5%)

bsearch273.0ms (0.5%)

bsearch120.0ms (0.2%)

bsearch198.0ms (0.4%)

bsearch276.0ms (0.5%)

bsearch107.0ms (0.2%)

derivations953.0ms (1.8%)

preprocess1.2s (2.2%)

end0.0ms (0.0%)

Profiling